Sub CommandButton1_Click()
nbonglet = 3
With CommandButton1
If CommandButton1.Value = False Then
Chm = "C:\Users\Poste1\Desktop\"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Chm & of & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Workbooks("Fichier_origine").Sheets("Onglet_1").Copy After:=Workbooks(of).Sheets(2)
Workbooks("Fichier_origine").Sheets("Onglet_2").Copy After:=Workbooks(of).Sheets(3)
For i = 1 To nbonglet
Sheets("Onglet_2").Copy After:=Sheets(Sheets.Count) 'copie de l'onglet 2 en x onglets
ActiveSheet.Name = "" & (i)
ActiveSheet.Shapes("Button 1").Select 'attribution bouton <-> macro
Selection.OnAction = "Feuil6.okbutton" 'attribution bouton <-> macro
Next i
End If
Application.DisplayAlerts = False
Sheets("Onglet_2").Delete 'supprime l'onglet "Tableau de suivi"
Sheets("Feuil1").Delete 'supprime onglet 1
Sheets("Feuil2").Delete 'supprime onglet 2
Sheets("Feuil3").Delete 'supprime onglet 3
Application.DisplayAlerts = True
Sheets("1").Select
ActiveWorkbook.Save
Windows("Fichier_origine").Activate
ActiveWorkbook.Close
Unload Me 'sortie userform
End With
End Sub