Sub Moi()
'
' Moi Macro
' Cette macro écrit mon nom au point d'insertion
'
    Dim varReponse As integer 'Déclaration de la variable
    On Error Resume Next
    varReponse = MsgBox("Voulez-vous que VBA ajoute votre nom au point d'insertion?", _
    vbYesNo + vbQuestion, "Exécution de la macro Moi")

    If varReponse = vbYes Then
        Selection.TypeText Text:="Votre nom"
        MsgBox "Cette macro vient d'ajouter votre nom au document."
    End If
End Sub

Fermer cette fenêtre