Option Compare Text 'la casse est ignorée
Sub Correction()
Dim tablo, d As Object, i&, s, cherche$
With Sheets("suivi").[A1].CurrentRegion
tablo = .Resize(, 55) 'matrice, plus rapide
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
'---liste des noms + 1ers prénoms de la colonne I---
For i = 2 To UBound(tablo)
If tablo(i, 9) <> "" Then
s = Split(tablo(i, 9) & " ")
d(s(0) & " " & s(1)) = tablo(i, 55) = "Oui" 'mémorise True/False
End If
Next
'---correction en colonne BC---
For i = 2 To UBound(tablo)
If tablo(i, 19) = "Conjoint" And tablo(i, 55) <> "Oui" Then
cherche = tablo(i, 7) & " " & Left(tablo(i, 8), InStr(tablo(i, 8) & " ", " ") - 1) 'nom + 1er prénom
If d(cherche) Then tablo(i, 55) = "Oui"
End If
Next
.Columns(55) = Application.Index(tablo, , 55) 'restitution
End With
End Sub