J ai trouvé ceci qui fonctionne entre temps !
Sub ColorierDoublons()
Dim lastRow As Long
Dim i As Long
Dim j As Long
'Déterminer la dernière ligne de données dans la feuille 1
lastRow = Worksheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row
'Boucle à travers les données dans la feuille 1
For i = 2 To lastRow
'Référence actuelle
ref = Worksheets("Feuil1").Cells(i, "A").Value
'Boucle à travers les données dans la feuille 2
For j = 2 To Worksheets("Feuil2").Cells(Rows.Count, "A").End(xlUp).Row
'Vérifier si la référence actuelle existe dans la feuille 2
If ref = Worksheets("Feuil2").Cells(j, "A").Value Then
'Colorer la cellule en G de la feuille 1
Worksheets("Feuil2").Cells(i, "A").Interior.Color = RGB(255, 0, 0)
Exit For
End If
Next j
Next i
End Sub