besoin d'aide erreur code

[alfazoulou]

Bonjour le forum.
faisant suite à un fil précédent...
j'ai le code suivant qui copie 2 feuilles en plusieurs exemplaires et les renomme.
Jusque là tout va bien .
ensuite cela se complique quand je veux formater toutes les cellules A58:A62 de toutes les feuilles j'obtiens un message d'erreur sur la ligne "Range("A58:A62").Select"
alors que ce code vient de l'éditeur de macros.
????

Private Sub CommandButton1_Click()

Sheets("Feuil1").Copy After:=Sheets("Feuil3")
Sheets("Feuil1 (2)").Activate
Sheets("Feuil1 (2)").Name = "Devis 1"

Sheets("Feuil2").Copy After:=Sheets("Devis 1")

For i = 2 To 9

ActiveSheet.Name = "Devis " & i
Sheets("Feuil2").Copy After:=Sheets("devis " & i)
Next
ActiveSheet.Name = "Devis " & i

Dim MesFeuilles(9)
For i = 0 To 9
MesFeuilles(i) = "Devis " & i + 1
Next
Sheets(MesFeuilles).Select



Sheets("Devis 1").Activate
Range("A58:A62").Select
ActiveWindow.SmallScroll Down:=3
Selection.Font.Bold = True
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

End Sub

Avez vous la solution SVP ??😕

 

[Catrice]

Re : besoin d'aide erreur code

Re,


Il est preferable de rester sur le meme fil.
voir la reponse ici : https://www.excel-downloads.com/threads/copie-mutiple-de-feuilles.104655/