Repérer les doublons et importer la mise en forme du doublon sur l'original

Bonjour,

Je viens vers vous après avoir cherché pendant des heures mon bonheur sans succès...
Je vous explique :

Je souhaite repérer les doublons entre deux colonnes, de deux feuilles diffèrent, puis appliquer la mise en forme des doublon de la deuxième feuille sur la première.

J'espère avoir été assez clair, je vous laisse un exemple dans mon Excel avec un rendu de ce que je voudrais obtenir.

Encore merci

bonjour,

Sub Couleurs()
     With Sheets("feuil2").Range("A1").CurrentRegion.Resize(, 2)     'vos données
          arr = .Value     'dans un array
          For i = 1 To UBound(arr)     'pour chaque donnée
               arr(i, 2) = .Cells(i, 1).Interior.Color     'le couleur comme 2ieme element
          Next
     End With

     With Sheets("Feuil1")
          With .Range(.Range("L1"), .Range("L" & Rows.Count).End(xlUp))     'ce range
               For Each c In .Cells     'chaque cellulle
                    r = Application.Match(c.Value, Application.Index(arr, 0, 1), 0)     'cherche ligne correspondant dans l'array
                    If IsNumeric(r) Then     'trouvé
                         c.Interior.Color = arr(r, 2)     'couleur
                    Else
                         c.Interior.Color = xlNone     'non couleur
                    End If
               Next
          End With
     End With
End Sub

C'est exactement ce que je voulais !

Merci infiniment et excellente journée.