Sub test()
Dim Plage1 As Range, Cel1 As Range, Plage2 As Range, Cel2 As Range
Dim DLig As Long
With Sheets("Payés")
DLig = .Range("G" & Rows.Count).End(xlUp).Row
' Définir la plage des conjoints
Set Plage1 = .Range("I2", .Range("I" & DLig))
' Définir la plage des noms
Set Plage2 = .Range("G2", .Range("G" & DLig))
' Pour chaque cellule de la plage des conjoints
For Each Cel1 In Plage1
' Si la cellule n'est pas vide et de couleur jaune
If Not IsEmpty(Cel1) And Cel1.Interior.Color = vbYellow Then
' Faire une recherche sur chaque cellule de la plage noms
For Each Cel2 In Plage2
' Si le nom + Prénom = celui de la plage conjoint
If Cel2 & " " & Cel2.Offset(0, 1) = Cel1 Then
' On passe la cellule en jaune
Cel2.EntireRow.Interior.Color = vbYellow
End If
Next Cel2
End If
Next Cel1
End With
End Sub