VBA- formule

Bonjour,

Nous avons une VBA avec un formulaire. Dans ce formulaire de création de client, nous avons des identifiants et nous souhaiterions qu’à chaque client créé, l’identifiant rajoute un 1. C’est-à-dire, que le premier client créé porte l'identifiant 5000 et que le deuxième porte l'identifiant 5001, cependant je n'arrive pas à mettre dans ma macro une formule ou autre, pour que quand je créé mon deuxième client, le code se mette à 5001. Auriez vous une solution à mon problème ?

Et j’aurai une autre question, auriez-vous une formule pour copier les clients que je crée (dans la feuille : création client) pour les mettre dans la deuxième feuilles (Client enregistré).



Mon code :
'*******
'Procédure permettant d'ajouter un nouvel enregistrement
' dans la base de données
'*******
Private Sub btnAjout_Click()

'SELECTION DE LA DERNIERE LIGNE VIDE
Feuil4.Activate
Feuil4.Range("A1048576").End(xlUp).Offset(1, 0).Select
ActiveCell = Me.TxtIdentifiant

'AFFECTATION DES DONNEES DANS LE TABLEAU
ActiveCell = Me.TxtIdentifiant
ActiveCell.Offset(0, 0) = 5000 'Code tier
ActiveCell.Offset(0, 1) = Me.cboEntreprise
ActiveCell.Offset(0, 2) = Me.cboCivilité
ActiveCell.Offset(0, 3) = Me.txtNom
ActiveCell.Offset(0, 4) = Me.txtPrénom
ActiveCell.Offset(0, 5) = Me.txtAdresse
ActiveCell.Offset(0, 6) = Me.txtAdresseSuite
ActiveCell.Offset(0, 7) = Me.cboVille
ActiveCell.Offset(0, 8) = Me.cboCodePostal
ActiveCell.Offset(0, 9) = Me.txtEmail
ActiveCell.Offset(0, 10) = Me.txtTéléphone
ActiveCell.Offset(0, 11) = Me.txtMobile


End Sub

'******
'Procédure permettant de
'fermer un formulaire
'******
Private Sub btnFermer_Click()

Unload Me

End Sub

'*******
'Procédure permettant d'accéder
'à la source de données
'*******
Private Sub btnSource_Click()

Feuil1.Activate
Range("A1").Select

End Sub

'***********
' Procédure permettant de réinitialiser
' les champs du formulaire
'**********
Private Sub btnEffacer_Click()

cboCivilité = ""
cboCodePostal = ""
cboEntreprise = ""
cboVille = ""
TxtIdentifiant = ""
txtNom = ""
txtPrénom = ""
txtAdresse = ""
txtAdresseSuite = ""
txtEmail = ""
txtMobile = ""
txtTéléphone = ""

End Sub

'******* La formule que je cherche devrai se mettre ici normalement*****
'Private Sub TxtIdentifiant_Change()



'End Sub

'*********
' Procédure permettant d'activer
' le bouton d'ajout d'enregsitrement
'********

Private Sub txtNom_Change()

If txtNom <> "" Then
btnAjout.Enabled = True 'Activer le bouton
Else
btnAjout.Enabled = False 'Désactiver le bouton
End If

End Sub



Merci de prendre le temps de me répondre