Bonjour,
Peut-être :
With Sheets("TEST")
ind = Range("A5") + 1
b = Format(Month(Date), "00")
a = Mid(Range("B5").Value, 4, 2)
If Val(b) > Val(a) Then ind = 1
.Range("a5") = ind
.Range("B5") = Format(Now, "yy") & "." & Format(Now, "mm") & "AD" & Range("a5")
End With
a+