Private Sub ColDate_Change()
CollDate = ColDate.ListIndex + 2
recherche
End Sub
Private Sub LigNom_Change()
Dim rRange As Range
Dim vI As Variant
Set rRange = Range([AH3], [AH200])
For Each vI In rRange
If LigNom.Text = vI Then
CollNom = (vI.Row)
Exit For
End If
Next vI
recherche
End Sub