La fonction suivante vous donne automatiquement les initiales de votre nom.

Function InitialesNoms(chainecarac As String) As String
Dim Compter As Integer
Application.Volatile
chainecarac = " " & Application.Trim(chainecarac)
For Compter = 2 To Len(chainecarac)
If Mid(chainecarac, Compter – 1, 1) = " " Then _
InitialesNoms = InitialesNoms & Mid(chainecarac, Compter, 1)
Next Compter
End Function

Commentaires:
■ La fonction attend soit une référence de cellule dans le tableau, c’est-à-dire un appel avec = INITIALESNOMS (A2), soit un nom direct = INITIALESNOMS (»ELIE CHANCELIN«). Dans les deux cas, les premières lettres des noms sont évaluées et rassemblées.