Function SimboloEnFrase(nom1 As String, nom2 As String, sep As String, Optional police As String) As String
Dim cadena As Variant
'- nom1 : 1er mot
'- nom 2 : 2ème mot
'- sep : symbole qui sépare dans la chaîne mot1 de mot2
'- police : nom de la police de caractères "exotiques" pour "sep" (si l'on veut que le séparateur soit
' vraiment atypique, un symbole de "Webdings" par exemple)
cadena = nom1 & sep & nom2
If police <> "" Then
cadena.Characters(Start:=Len(nom1) + 1, Length:=Len(sep)).Font.Name = police
End If
SimboloEnFrase = cadena
End Function