Copie de cellule vers autre feuil

Bonjour à tous

Une fois de plus j’ai besoin de votre aide

Je souhaite copier des donnes d’une feuille pour les copier dans une autre feuille.

Cela serait facile mais non

Exemple :

Dans la feuille1-t de a21:a40 je souhaite mettre des données de la feuille listeA-TITULAIRE a6 :a25

Cela sur les 4 liste existante

Ainsi de suite pour les autres feuilles

Le plus simple pour comprendre et de regarder le fichier joint

Merci de votre aide

Bonjour,

Sub TftListes()
    Dim RgS As Range, RgC As Range, nfS, nfC, f%, i%
    nfS = Split("listeA-TITULAIRE froid-TITULAIRE salade-TITULAIRE listeA-REMPLACANT froid-REMPLACANT salade-REMPLACANT")
    nfC = Split("Feuil1-t Feuil2-t Feuil3-t Feuil4-s Feuil5-s Feuil6-s")
    For f = 0 To 5
        Set RgS = Worksheets(nfS(f)).Range("A6:A25")
        Set RgC = Worksheets(nfC(f)).Range("A21:A40")
        For i = 0 To 3
            RgC.Offset(, i * 3).Value = RgS.Offset(, i * 5).Value
        Next i
    Next f
End Sub

J'ai rattaché la macro à ton bouton sur la feuille Sommaire.

Cordialement.

Je te remercie pour t’a réponse

Comme toujours excellent travail, et code toujours simple à comprendre

Merci pour t’on aide précieuse