Erreur d'exécution '438'

Bonjour,

je suis en train de réaliser un questionnaire sur plusieurs feuilles et il y a une erreur type 438 quand je fais tourner la macro suivante à partir d'un bouton :

Sub Modif_Infos()
Dim Rep As Integer
Rep = MsgBox("Souhaitez-vous retourner à la page précédente ?", vbYesNo + vbQuestion, "Modifier mes informations")
    If Rep = vbYes Then
        Range("I30:I43").Select
        Selection.ClearContents
        [GraphZeroVeg].ClearContents
        Sheets("Tableaux et Listes").Select
        [Tableau_Graph].Select
        Selection.CearContents
        Sheets("Caractéristiques exploitation").Select
    Else
        Range("A1").Select
    End If
End Sub

L'objectif du code est simplement de supprimer le contenu de certaines cellules et d'un tableau si l'utilisateur veut revenir sur les feuilles précédentes pour modifier les informations qu'il avait rentré. Le problème c'est qu'avec l'erreur 438 le logiciel ne me dit pas à quelle ligne se trouve l'erreur ! J'ai beau vérifier chaque ligne je ne trouve pas le problème.

Merci d'avance

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.