Sub Test()
Dim Ind As Integer, TabSht() As String
' Définit le tableau des feuilles à parcourir
TabSht = Split("Feuil1,Feuil2", ",")
' Pour chaque feuille
For Ind = 0 To UBound(TabSht)
With Sheets(TabSht(Ind))
.Range("G3,I3,K3,G6,I6,K6").Value = "Vide"
End With
Next Ind
End Sub