With Feuil3
lig = .Cells(Rows.Count, "A").End(xlUp).Row + 1
'ID unique facilitant la recherche pour modification ou suppression des données
.Cells(lig, "A") = Left(Texbox1, 1) & Left(TextBox2, 1) & "-" & lig - 1
'Nom complet aussi
.Cells(lig, "B") = Texbox1 & " " & TextBox2
End With