Mise en Forme conditionnelle ligne/ligne sur toutes les lignes d'un tableau

Bonjour à tous petites question j'ai un programme VBA qui me génère ce tableau et j'ai besoin d'une mise en forme conditionnelle :

J'aimerais que pour chaque ligne si la traduction EN/ES/PL/PT sont égal à la FR alors me colorier la cellule en bleu par exemple.

Voici un exemple du résultat attendu :

Merci

J'ai trouvé un solution vos avis ?

            Set IDColumn = ws.UsedRange.Find("ID", , xlValues, xlWhole)
            Set FRColumn = ws.UsedRange.Find("FR", , xlValues, xlWhole)
            Set ENColumn = ws.UsedRange.Find("EN", , xlValues, xlWhole)
            Set ESColumn = ws.UsedRange.Find("ES", , xlValues, xlWhole)
            Set PLColumn = ws.UsedRange.Find("PL", , xlValues, xlWhole)
            Set PTColumn = ws.UsedRange.Find("PT", , xlValues, xlWhole)

            derniere_ligne = ws.Cells(1, IDColumn.column).End(xlDown).Row

            Range(Cells(2, ENColumn.column).Address(), Cells(derniere_ligne, PTColumn.column).Address()).Select
            Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
            Formula1:="=$" & Split(Cells(1, FRColumn.column).Address, "$")(1) & "2"
            Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
            With Selection.FormatConditions(1).Interior
                .PatternColorIndex = xlAutomatic
                .Color = 15773696
                .TintAndShade = 0
            End With
            Selection.FormatConditions(1).StopIfTrue = False

Bonjour PépéMax, bonjour le forum

Je te propose cette macro à adapter, et t'invite pour tes prochaines demandes à poster un fichier excel exemple,

plus facile à manipuler que les captures d'écran

Sub couleur()
Dim ligneA As Integer
On Error Resume Next
For ligneA = 2 To 20

  ' si la cellule en ligneA et colonne 2 (FR) n'est pas vide et 
'que la cellule en ligneA et colonne 3 (ES par exemple) est égale à la FR, alors ...

    If Not IsEmpty(Cells(ligneA, 2)) And Cells(ligneA, 3) = Cells(ligneA, 2) Then
' j'ai simplifié ton code couleur
    Cells(ligneA, 3).Interior.Color = 15773696
    End If
Next ligneA
End Sub

Bonjour à tous,

A tester.....sans vba....

Cordialement,