Syntaxe VBA pour numero automatique

Bonjour à tous j'ai un petit sur un programme.

j'ai un Userform qui sert à renseigner ma BD patient

dans mon champs Numero, je voudrais des N° de manière automatique( ABJ001)

c'est à dire à l'ouverture du Userform le N° suivant se positionne après validation du bouton "VALIDER"

Merci à tous de bien vouloir m'aider à trouver la solution

Bonjour tinodecossa,

Par exemple :

Formule à insérer en cellule L1

=(INDEX(A2:A2000;NBVAL(A3:A2000))+1)+1

Format personnalisée de la cellule :

"AI-"00000

Modification du module2

Option Explicit
Dim Ws As Worksheet
Sub ENRGT()
'
' ENRGT Macro
'
'création nouveau Patient
Set Ws = Sheets("BD Patient")
AJPT.Num_P = Ws.Range("L1").Text
AJPT.Show
End Sub

Fichier excel joint et corrigé suivant paramètres ci-dessus

c'est parfait et merci beaucoup