Function INITIALES(rng As Range, Optional NBMots As Long = -1) As String
Dim t, x&, cpt&
t = Split(rng)
For x = LBound(t) To UBound(t)
INITIALES = UCase(INITIALES & Left(t(x), 1))
cpt = cpt + 1
If NBMots > 0 And cpt >= NBMots Then Exit For
Next x
End Function