Bonjour,
Le mieux c'est une macro
Clic droit sur le nom de la feuille, choisi Visualiser le code et copie la macro ci dessous
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$I$12" Then Exit Sub
Target.Value = "A/" & Format(Now, "ddmmyyyy") & "/" & Format(Range("j1").Value, "00")
Range("j1").Value = Range("j1").Value + 1
End Sub
Dans cette macro j'utilise la cellule J1 pour les 2 derniers chiffres
Pour x1 on mettra (colonne qui peut être masquée ou écrit blanc/blanc)
Target.Value = "A/" & Format(Now, "ddmmyyyy") & "/" & Format(Range("x1").Value, "00")
Range("x1").Value = Range("x1").Value + 1
A+ François