Vba/word

bonjour les amis
je me lance dans la programmation ....
Aver mon bouquin formation vba word je viens de creer la macro suivante. Mon probleme est quand je clique sur Annuler ce que je veux effacer est bien effacé mais il y a aussi mon message d'erreur qui apparait. je voudrais qu'il efface sans faire apparaitre le message d'erreur. Mon deuxieme probleme quand je clique la croix pour la fermeture de la fenetre il me sort également mon message d'erreur et la fenêtre ne se ferme pas.

je suis sure que parmi vous il y a des spécialistes qui voudront bien éclairer ma lanterne et vous en remercie par avance




Dim monchiffre As Byte
Dim compteur
Dim alerte As String
Dim alarme As String
monchiffre = CStr(monchiffre)
machiffre = monchiffre

compteur = 1

Do While compteur < 4

machiffre = (InputBox("Entrer le chiffre correspondant " + vbCr _
+ vbCr _
+ "1. Convocation Conseil " + vbCr _
+ "2. Convocation Caisse Ecole " + vbCr _
+ "3. Compte rendu déliberation CCAS " + vbCr _
+ "4. Note d'Information " + vbCr _
+ "5. Compte rendu délibération Conseil ", _
" Choix de l'application "))

If machiffre = 1 Then
Documents.Add Template:= _
"C:\Program Files\Microsoft Office\Templates\CONVOCONSEIL.dot", _
NewTemplate:=False, DocumentType:=0 '
Exit Do
ElseIf machiffre = 2 Then
Documents.Add Template:= _
"C:\Program Files\Microsoft Office\Templates\convocaisseecole.dot", _
NewTemplate:=False, DocumentType:=0
Exit Do
ElseIf machiffre = 3 Then
Documents.Add Template:= _
"C:\Program Files\Microsoft Office\Templates\ccas.dot", _
NewTemplate:=False, DocumentType:=0
Exit Do
ElseIf machiffre = 4 Then
Documents.Add Template:= _
"C:\Program Files\Microsoft Office\Templates\information.dot", _
NewTemplate:=False, DocumentType:=0
Exit Do
ElseIf machiffre = 5 Then
Documents.Add Template:= _
"C:\Program Files\Microsoft Office\Templates\delib.dot", _
NewTemplate:=False, DocumentType:=0
Exit Do

Else

alerte = (MsgBox(" Erreur " & compteur & " fois " + vbCr _
+ " Entrez un chiffre inférieur à 7", "48", _
" Alarme"))
compteur = compteur + 1


End If

If compteur = 4 Then
reponse = (MsgBox("Trois fois çà suffit" + vbCr _
+ "Renouvellez votre demande !!", "48", " Ne pas s'obstiner dans l'erreur "))
End If

Loop



End Sub