Private Sub Valider_Click()
Dim r As Range 'déclare la variable r (Recherche)
Dim tr As String 'déclare la variable tr (Texte Recherché)
Dim li As Integer 'déclare la variable li (LIgne)
tr = TextBox10.Text 'définit la variable tr
With Sheets("BDD") 'prend en compte l'onglet "BDD"
'définit la variable r (recherche les occurrences de tr dans la colonne A de l'onglet "BDD")
Set r = .Columns(1).Find(tr, , xlValues, xlWhole)
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence
li = r.Row 'définit la variable li
.Cells(li, 2).Value = TextBox11.Value 'place le contenue de la TextBox11
.Cells(li, 3).Value = TextBox3.Value 'place le contenue de la TextBox3
'etc....
End If 'fin de la condition
End With 'fin de la prise en compte de l'onglet "BDD"
End Sub