Bonsoir les amis,
Je rencontre un problème erreur d'exécution 9 sur le programme suivant :
Sachant que le programme fonctionne sauf que j'ai à chaque fois le code d'erreur 9
Sub renommefeuille()
Dim num As Integer
Dim ligne As Integer
nbligne = Worksheets(1).Range("D1")
num = 2
For ligne = 1 To nbligne
num = num + 1
Sheets(num).Name = Sheets(1).Cells(ligne, 1).Value
Next ligne
End Sub
Merci pour votre aide