Sub Simple()
On Error Resume Next
Worksheets("Rapportw").Select

ne trouve pas la feuille "Rapportw" mais ne provoque pas d'erreur

End Sub

Exemple de traitement d'une erreur à l'ouverture d'une feuille

Sub Auto_Open()
On Error GoTo Auto_Open_Err
Worksheets("Rapportw").Select

ne trouve pas la feuille "Rapportw" et affiche un message

Auto_Open_Err:
Dim monMsg
Let monMsg = "Une erreur " & Err & " s'est produite. "
Let monMsg = monMsg & Error()
MsgBox Prompt:=monMsg
End Sub

Sort de la procédure s'il n'y a rien à coller

Sub ColleFormule()
On Error GoTo Sort:
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= False, Transpose:=False
Exit Sub
Sort:

Le traitement de l'erreur permet d'éviter un plantage si le presse-papier est vide.

Evaluation d'une entrée

Sub EvalueValeur()
On Error GoTo ValErreur

GetInput:
MaValeur = InputBox("Tapez votre valeur (Entre 0 et 100)", "Valeur")
If MaValeur = "" Then Exit Sub ' Sort si aucune valeur ou Annuler
If MaValeur > 100 Then Error 5000 ' Erreur d'exécution
Range("A1").Value = MaValeur
Exit Sub

ValErreur:
MsgBox "La valeur est incorrecte.Tapez une valeur comprise entre 0 et 100"
Resume GetInput
End Sub