Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = Sheets("debut").Range("a65536").End(xlUp).Row To 9 Step -1
nom = Sheets("debut").Cells(i, 1)
'copy et renomme la feuille
Sheets("MODELE").Copy After:=Sheets(1)
Sheets("MODELE (2)").Name = nom
For n = 1 To 4
ActiveSheet.Cells(n + 4, 2) = Sheets("debut").Cells(i, n)
ActiveSheet.Cells(n + 4, 2).NumberFormat = Sheets("debut").Cells(i, n).NumberFormat
Next
Next
End Sub