Dim Lig
Sub LigneExiste()
Dim T(), i As Long, clé, d As Object
Set d = CreateObject("scripting.dictionary")
T = Range("Tb").ListObject.DataBodyRange
clé = "mo" & "ml" & "0xxx"
For i = LBound(T) To UBound(T)
If T(i, 1) & T(i, 2) & T(i, 3) = clé Then
If d.Exists(T(i, 1) & T(i, 2) & T(i, 3)) Then
d(T(i, 1) & T(i, 2) & T(i, 3)) = i
Else
d(T(i, 1) & T(i, 2) & T(i, 3)) = d.Count + 1
i = d.Count
End If
Next i
Lig = i
End Sub