Sub CreerFeuille(nombre As Integer)
Dim i As Integer
For i = 2 To nombre
Sheets('Sub1').Copy After:=Sheets('Sub' & (i - 1))
ActiveSheet.Name = 'Sub' & i
Next i
End Sub
Donc de temps en temps ça bug avec toujours le même message:
Erreur d'execution 1004
la méthode de la classe worksheet a échoué
Continuer Fin Debogage Annuler