Dim ma_plage_a_copier As Range Set ma_plage_a_copier = Range("A2:G4") ' ici la plage à copier (la tienne, c'est A2:G63) For i = 1 To 4 ' pour copier 4 fois (toi, c'est 17) ma_plage_a_copier.Copy Destination:=Range("A" & ma_plage_a_copier.Row + i + i * ma_plage_a_copier.Rows.Count) Next
Dim oNewSheet As Worksheet Set oNewSheet = Sheets.Add oNewSheet.Name = "Toto " & Sheets.Count Set oNewSheet = Nothing
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim ma_plage_a_copier As Range Set ma_plage_a_copier = Range("A2:G4") ' ici la plage à copier (la tienne, c'est A2:G63) For i = 1 To 4 ' pour copier 4 fois (toi, c'est 17) ma_plage_a_copier.Copy Destination:=Range("A" & ma_plage_a_copier.Row + i * ma_plage_a_copier.Rows.Count) Next