Attribute VB_Name = "NewMacros"
Sub AfficherEmoticon()
    Dim RetVal As Long
    Dim Cible As String
    Cible = "C:\Program Files (x86)\Emoticon\emoticon.exe"
    RetVal = Shell(Cible, 1)
End Sub