Bonjour à toutes et à tous,

Dans une cellule "F3" d'un fichier Excel je souhaite incrémenter un numéro automatiquement. Il doit avoir cette forme CLAS"ANNEE EN COURS"0001, 0002, 0003, etc...
J'ai commencé ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Private Sub Worksheet_Activate()
N = Range("F3")
N = N + 1
Range("F3") = "CLAS" & Year & "/" & N
End Sub
Mais je ne sais pas comment insérer l'année en cours et le numéro avec le format 0001
Pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance
Amicalement

EDIT :
J'ai réussi à trouver pour le format nombre, voici le code modifié. YEAR est en parenthèses car j'ai une erreur à ce niveau
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Private Sub Worksheet_Activate()
N = Range("F3")
N = N + 1
N = Format(N, "0000")
Range("F3") = "CLAS" & "Year" & " " & "/" & " " & N
End Sub