Copier des cellules dans plusieurs feuilles

Bonjour

je cherche à copier des cellules et les insérer dans plusieurs feuilles différentes

Range("A1:I1").Select
    Selection.Copy
    Sheets("Zone" & c.Value).Select
    Range("A1:I1").Select
    Sheets("Zone" & c.Value).Paste

quand je fais ca il me dise impossible d'effectuer pour plusieurs feuilles

si quelqu'un a une petit idée merci

Bonjour

Merci de joindre ton fichier

Amicalement

Nad