Private Sub CommandButton1_Click()
Range('A1:L125').Select
Selection.Copy
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
NewSheet.Name = Feuille
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Unload UserForm1
Call raz
merci de votre aide jai trouvé
bonne soirée