VBA : Formulaire

Option Explicit
Dim LCou As Long, Induit As Boolean

Private Sub TbxNumLig_Change()
Dim Tv(), C As Long
On Error Resume Next
LCou = TbxNumLig.Text
If Err Then LCou = 0
On Error GoTo 0
If LCou = 0 Then
   ReDim Tv(1 To 1, 1 To 9)
Else
   Tv = Feuil1.Cells(LCou, 1).Resize(, 9).Value
   Induit = True: Me.SpinButton1.Value = LCou: Induit = False
   End If
For C = 1 To 9: Me.Controls("TextBox" & C).Text = Tv(1, C): Next C
HabiliterBoutons
End Sub

Private Sub SpinButton1_Change()
If Induit Then Exit Sub
TbxNumLig.Text = SpinButton1.Value
End Sub

Private Sub BtnNouveau_Click()
TbxNumLig = ""
HabiliterBoutons
End Sub

Private Sub BtnAjouter_Click()
Dim Plg As Range
Set Plg = Feuil1.UsedRange
LCou = Plg.Rows.Count + 1
BtnModifier_Click
End Sub

Private Sub BtnModifier_Click()
Dim Tv(), C As Long
ReDim Tv(1 To 1, 1 To 9)
For C = 1 To 9: Tv(1, C) = Me.Controls("TextBox" & C).Text: Next C
Feuil1.Cells(LCou, 1).Resize(, 9).Value = Tv
End Sub

Private Sub HabiliterBoutons()
Me.BtnAjouter.Enabled = LCou = 0
Me.BtnModifier.Enabled = LCou <> 0
Me.BtnSupprimer.Enabled = LCou <> 0
End Sub