XL 2010 Créer un message d'erreur

Sub test()
Dim cel As Range

    For Each cel In Range("a2:p8")
        Set cel = ActiveCell
        If Application.Intersect(cel, Range("a2:p8")) Is Nothing Then _
           MsgBox "Veuillez sélectionner la ou les cellules": Exit Sub
    Next cel
    Application.Goto Range("a1")
End Sub

On Error Resume Next

Sub RàZTournée()
WshTournée.[TabÉtapes[?]].Value = "û"
On Error Resume Next
WshTournée.[TabTournée].Delete xlShiftUp
End Sub
Sub RemiseEtapeAZero()
WshTournée.[TabÉtapes[?]].Value = "û"
End Sub

Sub RàZTournée()
Dim Retenus As Boolean, Reliquat As Boolean
Retenus = Application.CountIf(WshTournée.[TabÉtapes[?]], "ü") > 0
Reliquat = WshTournée.[TabTournée].ListObject.ListRows.Count > 0
If Not (Retenus Or Reliquat) Then MsgBox _
   "Ça va, c'est bon, là, tout est déjà à l'état initial !", _
   vbCritical, "RÉINITIALISATION TOURNÉE"
If Retenus Then WshTournée.[TabÉtapes[?]].Value = "û"
If Reliquat Then WshTournée.[TabTournée].Delete xlShiftUp
End Sub
Sub RemiseEtapeAZero()
Dim Retenus As Boolean, Reliquat As Boolean
Retenus = Application.CountIf(WshTournée.[TabÉtapes[?]], "ü") > 0
If Not Retenus Then MsgBox _
   "Ça va, c'est bon, là, aucune étape n'est retenue !", _
   vbCritical, "RÉINITIALISATION ÉTAPES"
WshTournée.[TabÉtapes[?]].Value = "û"
End Sub