Sub Controle()
Dim I As Long, J As Long, Gagné As Boolean
For I = 2 To 4
Gagné = True
For J = 1 To 4
If Cells(7, J).Value <> Cells(I, J).Value Then
Gagné = False: Exit For
End If
Next J
If Gagné Then
Cells(I, 5) = "gagné !!!"
Else
Cells(I, 5).ClearContents
End If
Next I
End Sub