Charger données d'une base données dans un formulaire

Sub MODIFIER()
r = [J3]
Dim Ligne As Long
On Error GoTo erreur
With Sheets("BD")
Ligne = .Columns(1).Find(r, , , , xlByColumns, xlPrevious).Row
.Range("B" & Ligne) = [C10]
.Range("C" & Ligne) = [C12]
'continuer ainsi pour le autres cellules à remplir
End With
Exit Sub
erreur:
MsgBox " Non trouvé dans la banque de données"
End Sub

Sub RECHERCHE()
r = [J3]
Dim Ligne As Long
On Error GoTo erreur
With Sheets("BD")
Ligne = .Columns(1).Find(r, , , , xlByColumns, xlPrevious).Row
[C10] = .Range("B" & Ligne)
[C12] = .Range("C" & Ligne)
[C14] = .Range("D" & Ligne)
[C16] = .Range("E" & Ligne)
[C18] = .Range("F" & Ligne)
'continuer ainsi pour le autres cellules à remplir
End With
Exit Sub
erreur:
MsgBox " Non trouvé dans la banque de données"
End Sub