Sub Vérif()
Dim R As Range, T(), L&, C1&, C2&
Set R = FEssais.[A3:D58]: T = R.Value
ReDim TDéjàAvec(1 To 26 * 25 \ 2), TDéjàContre(1 To 26 * 25)
R.Interior.Color = &HF0F0F0
For L = 1 To UBound(T, 1)
If Not IsEmpty(T(L, 1)) Then
For C1 = 1 To 3: For C2 = C1 + 1 To 4
If C1 > 2 Eqv C2 > 2 Then
If DéjàAvec(T(L, C1), T(L, C2)) Then
R(L, C1).Interior.Color = &HFFFF&
R(L, C2).Interior.Color = &HFFFF&
Else: DéjàAvec(T(L, C1), T(L, C2)) = True: End If
Else
If DéjàContre(T(L, C1), T(L, C2)) Then
R(L, C1).Interior.Color = &HFFFF&
R(L, C2).Interior.Color = &HFFFF&
Else: DéjàContre(T(L, C1), T(L, C2)) = True: End If
End If: Next C2, C1: End If: Next L
End Sub