Sheets("Feuil3").activate
'Pour chaque range, rajouter worksheets("Feuil3").range(....) 'Utiliser une variable si le nom de feuille est appelé à changer, ça peut être plus pratique Dim Feuille as worksheet Set Feuille = worksheets("Feuil3") 'ajouter dans ton code Feuille.range(...)
For i = 1 To ActiveWorkbook.Worksheets.Count MsgBox Worksheets(i).Name Next i
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question