On m'a aidé à créer un formulaire vba qui me permet soit de créer de nouvelles entrées soit de les faire afficher dans mon formulaire mais je ne sais pas comment faire après modifications des données les renvoyer dans ma base excel et écraser les anciennes données ( en textbox1 un numéro d'identification unique)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
  Dim L As Integer 
  Dim r As Range
  L = Sheets("Feuil1").Range("a65536").End(xlUp).Row + 1
  Set r = Sheets("Feuil1").Range("a2:a" & L).Find(TextBox1)
  If r Is Nothing Then
    MsgBox ("Introuvable")
  Else
    TextBox1.Value = r
    TextBox2.Value = r.Offset(0, 1)
    TextBox3.Value = r.Offset(0, 2)
    TextBox4.Value = r.Offset(0, 3)
    TextBox5.Value = r.Offset(0, 4)
    TextBox6.Value = r.Offset(0, 8)
    TextBox7.Value = r.Offset(0, 9)
    TextBox8.Value = r.Offset(0, 10)
    CheckBox1.Value = r.Offset(0, 11)
    CheckBox2.Value = r.Offset(0, 15)
    CheckBox3.Value = r.Offset(0, 17)
    TextBox9.Value = r.Offset(0, 19)
    TextBox10.Value = r.Offset(0, 23)
    TextBox11.Value = r.Offset(0, 24)
    TextBox12.Value = r.Offset(0, 25)
    TextBox15.Value = r.Offset(0, 28)
    TextBox13.Value = r.Offset(0, 29)
    TextBox14.Value = r.Offset(0, 30)
    TextBox16.Value = r.Offset(0, 33) :?:  :?:
Existe t'il une commande pour ça Merci d'avance