Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim tablo, Nom As String, Prénom As String, Indice As Integer, L As Integer, DerLig As Integer
tablo = Split(Target, " ")
Prénom = tablo(0)
Nom = tablo(1)
DerLig = Sheets("Data").Range("A65500").End(xlUp).Row
Indice = 0
For L = 2 To DerLig
If Sheets("Data").Cells(L, "A") = Nom And Sheets("Data").Cells(L, "B") = Prénom Then
Indice = L
Exit For
End If
Next L
If Indice = 0 Then Exit Sub ' Non trouvé
frmTest.txtNom.Value = Sheets("Data").Cells(Indice, "A")
frmTest.txtPrenom = Sheets("Data").Cells(Indice, "B")
frmTest.txtAdresse = Sheets("Data").Cells(Indice, "C")
frmTest.txtTelephone = Sheets("Data").Cells(Indice, "D")
frmTest.txtCodePostal = Sheets("Data").Cells(Indice, "E")
frmTest.Show
End Sub