Function initialesP(nom As String) As String
Dim decoup, i As Long
decoup = Split(nom, " ")
For i = 1 To UBound(decoup)
initialesP = initialesP & Left(decoup(i), 1)
Next i
End Function
=initialesP(C1)
Sub traiterC()
Dim lig As Long
For lig = 9 To Cells(Rows.Count, "C").End(xlUp).Row
Cells(lig, "B") = initialesP(Cells(lig, "C"))
Next lig
End Sub
On ne peut que répondre oui si tu en mets une...Oui je te remercie mais j'ai toujours une fonction dans ma cellule?