suspendre macro

Bonjour,

Suite à un message d'erreur je voudrais suspendre la macro puis pouvoir modifier des cellules puis reprendre la macro. Je ne vois pas comment faire
Merci
GestionErreur:
If Err = 13 Then

Date_erronée = MsgBox("Date_erronée", vbOKCancel)
Select Case Date_erronée
Case vbOK
Worksheets("Mises en Service").Select
Rows(m - 1).Select

je voudrais pouvoir suspendre la macro ici et pouvoir modifier n'importe qu'elle cellule dans le fichier puis reprendre la macro
Case vbCancel
Exit Sub
End Select
End If