do 'code Loop
dim i as integer Sheets("Input").Select Range("A1:AA14").Select Selection.Copy Sheets("DATA").Select i = ActiveSheet.Range("A65536").End(-4162).Row ' te permet de recupèrer la première cellule occupé en partant du bas de la colonne A. ( on part du bas pr evite le cas ou tu aurais une cellule vide dans ton tableau) i=i+3 'tu vas coller trois ligne en dessous de cette cellule et voila Range("A" & i).Select ActiveSheet.Paste
i = ActiveSheet.Range("A65536").End(-4162).Rowpar
i = Range("A1").SpecialCells(xlLastCell).Row
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question