Private Sub CommandButton1_Click()
Dim DernLig As Long
Dim num As Integer
With Sheets("Feuil1")
DernLig = .Range("A" & Rows.Count).End(xlUp).Row + 1
num = .Range("A" & Rows.Count).End(xlUp)
.Range("A" & DernLig).Value = num + 1
.Range("B" & DernLig).Value = TextBox1.Value
End With
End Sub
Code de ton bouton modifier et fonctionnel :
J'ai intégré num en variable entier et il prend la dernière ligne de la colonne A en valeur. ensuite il intègre à ton tableau dans la colonne vide (comme tu fais pour B) en ajoutant +1 à la variable (si en A3 c'était 2, en A4 ça sera 2+1 soit 3)
EDIT : J'étais plus lent , au moins j'arrive à comprendre comment améliorer mon codage