Remplir des cellules sur plusieurs feuilles à partir d'une liste

Essaie comme cela :

Sub Transferer()
Dim WsS As Worksheet
Dim i As Byte
    Set WsS = Worksheets("Feuil1") 'Feuille source
    For i = 2 To 4
        Worksheets(i).Range("A8") = WsS.Range("A" & i).Value
        Worksheets(i).Range("C8") = WsS.Range("B" & i).Value
        Worksheets(i).Range("F8") = WsS.Range("C" & i).Value
    Next i
    MsgBox "Traitement terminé !"
End Sub

A+

Merci encore Gyrus, cela fonctionne effectivement!

Si je peux un peu abuser, j'aimerais comprendre le code pour le modifier exactement comme je le souhaite:

Sub Transferer()
Dim WsS As Worksheet cela défini les feuilles concernées?
Dim i As Byte
Set WsS = Worksheets("Feuil1") 'Feuille source ok pour la feuille source

For i = 2 To 4 Si je comprend bien, tu créés une variable que tu nommes i. 2 to 4, c'est pour dire qu'on commence à la feuille 2 et qu'on termine à la 4?

Worksheets(i).Range("A8") = WsS.Range("A" & i).Value la je ne comprend pas vraiment ahah mais en gros, on met dans A8 ce qu'on trouve en colonne A pour A=i?

Worksheets(i).Range("C8") = WsS.Range("B" & i).Value
Worksheets(i).Range("F8") = WsS.Range("C" & i).Value
Next i
MsgBox "Traitement terminé !"
End Sub

Merci encore pour ton explication!