Private Sub ListBoxResultat_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
' Choisir Contact
Dim Compteur As Integer
For Compteur = 0 To (ListBoxResultat.ListCount - 1)
If ListBoxResultat.Selected(Compteur) = True Then
With UserForm1
.TextBox4 = Me.ListBoxResultat.List(Compteur, 0)
Exit Sub
End If
Next
ActiveCell = ListBoxResultat.Value
End Sub