[COLOR="DarkSlateGray"][B]Private Sub CommandButton1_Click()
toto Me.Name
Me.Activate
End Sub
Sub toto(sh$)
Dim i&, j&
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
With Sheets(sh)
For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If Not IsEmpty(.Cells(i, 1)) Then
For j = 1 To Sheets.Count
If Sheets(j).Name = .Cells(i, 1).Value Then Exit For
Next j
If j > Sheets.Count Then
Sheets("Modèle").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = .Cells(i, 1).Value
End If
End If
Next i
End With
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub[/B][/COLOR]