Option Explicit
Sub Valider_Click()
Dim f As Worksheet
Dim r As Range
Dim c As Range
Dim a As String
'Chercher le nom et le prénom dans la base de données
With Worksheets("Base")
Set r = .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
End With
Set c = r.Find(What:=ListBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then a = c.Address
Do While Not c Is Nothing
'Vérifier le prénom
If c.Offset(0, 1).Value = ListBox1.List(ListBox1.ListIndex, 1) Then Exit Do
Set c = r.FindNext
If c.Address = a Then Set c = Nothing
Loop
'Transférer les données
With Worksheets("EC")
'Nom
.Range("A9").Value = ListBox1.List(ListBox1.ListIndex, 0)
'Prénom
.Range("B9").Value = ListBox1.List(ListBox1.ListIndex, 1)
If Not c Is Nothing Then
'Date naissance
.Range("A12").NumberFormat = "dd/mm/yyyy"
.Range("A12").Value = c.Offset(0, 2)
'Commune
.Range("B12").Value = c.Offset(0, 3)
' ... etc
End If
End With
End Sub