Sub Cntrl()
Dim Combinaison
Dim Plage
Dim I As Long, J As Long
Dim N As Long
Dim L As Long, Lmax As Long
' empecher l'affichage et calcul
ActiveSheet.EnableCalculation = False
Application.ScreenUpdating = False
Combinaison = Range("L9:N9")
L = 1
Lmax = [A65000].End(xlUp).Row
Plage = Range(Cells(1, 1), Cells(Lmax, 6)) 'chargement en table de la plage
For L = 1 To Lmax
N = 0
For I = 1 To UBound(Combinaison, 2)
For J = 1 To 6
If Combinaison(1, I) = Plage(L, J) Then
N = N + 1
End If
Next
Next
If N = 3 Then ' Mise à jour de la colonne H
Cells(L, 8) = True
Else
Cells(L, 8) = False
End If
Next
' réactiver affichage et calcul
ActiveSheet.EnableCalculation = True
Application.ScreenUpdating = True
End Sub