[SIZE=2]Sub test()
[COLOR=navy]Dim [/COLOR]Commande[COLOR=navy] As String[/COLOR]
Commande = "MaMacro"
[B]Application.Run[/B] Commande
[COLOR=navy]End Sub[/COLOR]
[COLOR=navy]Sub[/COLOR] MaMacro()
MsgBox "On ne met jamais ""URGENT"" dans les titres de sujet !" & VbLf & "Merci de lire la Charte"
[COLOR=navy]End[/COLOR] Sub[/SIZE]
myDearFriend! à dit:Sub MaMacro()
MsgBox "On ne met jamais ""URGENT"" dans les titres de sujet !" & VbLf & "Merci de lire la Charte"
End Sub[/SIZE][/code] Cordialement,