Bonsoir,
Function Icrementalpha(Optional Init As String, Optional ByVal Col As Integer = 0) As String
Dim T As String: T = " " & Init
Select Case Mid(T, Len(T) - Col, 1)
Case " ": Mid(T, Len(T) - Col, 1) = "A"
Case "Z"
Mid(T, Len(T) - Col, 1) = "A"...