Macro find textbox,

Bonjour,

bonjour,

merci de m aider a résoudre cette macro

find ==> toto dans la colonne "D" de la feuil1
copie les cellules de cette ligne dans feuil3
mets les cellules trouver dans les textbox1,et 2 ,3 userform1
modifier a partir de textbox les valeurs de cellules de la ligne trouvée " toto" qui se trouve dans feuil1

Private Sub CommandButton4_Click()
Dim Mot As String, Nbre As Byte, cptr As Byte, Lig1 As Long, lig2 As Integer
Application.ScreenUpdating = False
With Sheets("feuil1")
On Error GoTo saisie
Mot = InputBox("introduire Nom et prénom en majuscule ")
Nbre = Application.CountIf(.Range("D2:D500"), Mot)
If Nbre = 0 Then GoTo vide
Lig1 = Cells.Rows.Count
lig2 = 1
For cptr = 1 To Nbre
Lig1 = .Columns("D").Find(Mot, .Cells(Lig1, "D"), xlValues).Row


Sheets("feuil3").Cells(lig2 + 16, "D") = .Cells(Lig1, "D")
Sheets("feuil3").Cells(lig2 + 4, "F") = .Cells(Lig1, "H")
Sheets("feuil3").Cells(lig2 + 2, "F") = .Cells(Lig1, "E")
Sheets("feuil3").Cells(lig2 + 0, "F") = .Cells(Lig1, "F")
Sheets("feuil3").Cells(lig2 + 4, "C") = .Cells(Lig1, "G")
Sheets("feuil3").Cells(lig2 + 10, "B") = .Cells(Lig1, "J")
Sheets("feuil3").Cells(lig2 + 10, "G") = .Cells(Lig1, "L")

Next
End With

Exit Sub

'gestionnaire erreur
saisie:
MsgBox "aucune saisie effectuée", vbCritical
vide:
MsgBox Mot & " inconnu dans la liste!", vbCritical


End Sub

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.