Mettre a jour tableau sur quelques feuilles

Bonjour les experts,

Voila jai un peut problem.

JAimerai mettre a jour mon tableau Excel sur toute les feuillezs a lexpection de 5 feuilles.

voice mon code qui ne fonctionne pas.

Sub Macro2()

For I = 8 To 12
Sheets(I).Rows("5:600000").ClearContents

DernLigne = Sheets(7).Range("A" & Rows.Count).End(xlUp).Row
Sheets(I).Range("B4:C4").AutoFill Destination:=Range("B4:C" & DernLigne)
Next I

End Sub

le code fonctionne lorsque la feuille est active. MErci de votre aide

STEPH