Copie la couleur des colonnes en fonction d'une autre

Bonjour,

J'ai passé beaucoup de temps à chercher une solution efficace mais je n'arrive pas à la trouver

Pour cela, je fais appel à vous pour m'aider si possible

En fait, j'ai un fichier ou je veux copier à chaque fois les couleurs et la police de la 3ème colonne dans les 2 colonnes précédentes : par exemple je dois reprendre les couleurs et la police de la colonne F dans les 2 colonnes précédentes (D et F) et ainsi de suite jusqu'à la colonne 36

j'ai pu adapter un code pour copier uniquement les couleurs de la colonne C dans les colonnes A et B

ub Couleur()
    Dim i%
    For i = 1 To 65
        Cells(i, 1).Interior.Color = Cells(i, 3).Interior.Color
        Cells(i, 2).Interior.Color = Cells(i, 3).Interior.Color
    Next i

End Sub

Mais je n'arrive à le boucler sur les autres colonnes suivantes, ni d'ajouter la police

Pour plus de détails, ci-joint un fichier exemple, Pouvez vous m'aider svp?

PS: Je ne veux pas copier toute la mise en forme puisque le type de format des 3 colonnes n'est pas le même (Texte, nombre et date)

D'avance, merci

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour gmb et merci beaucoup pour votre réponse

votre code fonctionne correctement

merci

A+