VoilàSub sauve()
Range("A1:C21").Copy Range("I1:K21") 'Copie de a1 à a21 puis colle info en I1 à K21
End Sub
Ensuite dans this worbook tu colles ceci:Sub Copi()
Dim x As Long: Dim nom As String: x = Sheets.Count
Feuil1.Copy After:=Sheets(x)
With ActiveSheet
nom = Right(Sheets(x).Name, 1) + 1
.Name = nom
End With
Feuil1.Activate
End Sub
Private Sub Workbook_Open()
Application.onTime timeValue("17:30:00"), "Copi "
End Sub
Bonne soirée
Tiens donc dans le module tu cole ceci:
Ensuite dans this worbook tu colles ceci: