Sub NomPropre()
Dim a As Range, f$, c As Range
ActiveCell.Activate 'au cas où la sélection n'est pas un Range
For Each a In Selection.Areas
f = "=PROPER({"
For Each c In a.Cells
f = f & """" & c & """" & ";"
Next c
f = Left(f, Len(f) - 1) & "})"
a.FormulaArray = f 'formule matricielle
Next a
End Sub