Bonjour
Tu peux utiliser les formules suivantes pour désigner les smileys:
Range(“A1”).Value = ChrW(9786) 'Smiley 
Range(“A2”).Value = ChrW(9785) 'Smiley 
Attention tu peux les utiliser pour écrire dans les cellules mais pas dans une MsgBox par exemple qui n’accepte que du texte
