Mise en forme conditionnelle - Recopier sans la règle

Bonjour,

Pour des raisons que je vous épargne, je souhaiterai recopier une mise en forme appliquée sur un ensemble de cellule vers une autre plage de même dimension, mais sans la règle de mise en forme.

Par exemple si j'ai A1 en rouge car la valeur est inférieure à 10, je souhaite recopier la couleur rouge sur B2 quelque soit la valeur de B2.Bien sur mon fichier fait des milliers de lignes et je dois pouvoir le faire d'un coup..

A noter qu'il s'agit d'une règle "Nuance de couleur" et que je n'ai pas réussi à distinguer la zone de critères de la zone d'application.

Je pense que le seul moyen est de passer par VBA, mais ChatGPT n'y arrive pas..

Merci pour votre aide :)

Bonjour

Voir DisplayFormat.Interior mais oblige à faire une boucle...

Bonjour,

en reprenant l'idée de 78chris :

Sub LRD
    Dim cel As Range
    For Each cel In Range("A1:A10")
        Sheets("Feuille2").Range("B1").Offset(cel.Row - 1, 0).Interior.Color = cel.DisplayFormat.Interior.Color
    Next cell
End Sub

@ bientôt

LouReeD