XL 2016 Incremination d'un Label

Bonjour
Il suffit d'enregistrer sur une feuille le dernier numéro ...
Exemple:
sub valider()
sheets("données").range("a1").value=Right(label1.caption, 3)
end sub
et dans
Private Sub UserForm_Activate()
Label1.Caption = "Art" & Format(Sheets("données").Range("a1").Value + 1, "000")
End Sub

Mais un fichier aurai été le bienvenu...
A+ François

Private Sub btnAjout_Click()
Dim DL As Integer

If Me.txtNom <> "" And Me.txtdescription <> "" And Me.txtAdresse <> "" And Me.txtUnite <> "" And Me.txtPrix <> "" And Me.txtTheo <> "" And Me.txtPhysique <> "" And Me.txtmini <> "" And Me.txtMaxi <> "" Then


Sheets(4).ListObjects(1).ListRows.Add 'ajouter une ligne au tableau
DL = Sheets(4).Range("b65536").End(xlUp).Row ' aller à la dernière ligne

'ajouter dans le tableau
Range("B" & DL) = Me.lblInfo.Caption
Range("C" & DL).Value = Me.txtNom
Range("D" & DL).Value = Me.txtdescription
Range("E" & DL).Value = Me.txtAdresse
Range("F" & DL).Value = Me.txtUnite
Range("G" & DL).Value = CCur(Me.txtPrix)
Range("H" & DL).Value = CInt(Me.txtTheo)
Range("I" & DL).Value = CInt(Me.txtPhysique)
Range("J" & DL).Value = CInt(Me.txtmini)
Range("K" & DL).Value = CInt(Me.txtMaxi)
Range("M" & DL) = "Actif"

'Incriminer le N° d'article sur la page paramètre
Sheets(1).Range("d7") = Sheets(1).Range("d7") + 1



ThisWorkbook.Save

Unload frmStock

End If

End Sub


Private Sub UserForm_Initialize()
Me.lblInfo.Caption = Sheets("parametres").Range("e7").Value

End Sub


Voila ce que j'ai fait

Voila je t 'ai joins mon fichier tu trouveras sela dans la feuille stock et parametres
Merci