Private Sub cmd1_Click()
Dim i As Long, LIGNE As Long
With DEST_BLEUE
For i = 0 To .ListCount - 1
LIGNE = Range("LISTE_BLEUE").Row - 1 + Application.Match(.List(i, 0), Range("LISTE_BLEUE"), 0)
MsgBox "La ligne de " & .List(i, 0) & " est: " & LIGNE
Next i
End With
End Sub