Erreur d'exécution '13

Bonjour a tous , je viens voir si quelqu'un peu voir d'ou viens erreur

j'ai un fichier pour remplir les type de soudure mais quand je rentre les parametre au dernier moment ca plante avec erreur 13 sur cordon = Worksheets("Info_Mat2").Range("I20")

Sub Info_compl_previous()
Application.ScreenUpdating = False
Worksheets("Info_QMOS").Visible = True
Sheets("Info_QMOS").Select
Worksheets("Info_compl").Visible = False
Application.ScreenUpdating = True
End Sub

Sub Info_compl_valider()
Dim cordon As Long

cordon = Worksheets("Info_Mat2").Range("I20")

    If cordon > 0 Then

    Application.ScreenUpdating = False

    Worksheets("Feuille_DMOS_cordon").Visible = True
    Worksheets("Info_compl").Visible = False
    Sheets("Feuille_DMOS_cordon").Select
MsgBox ("Voici le résultat de votre DMOS, vous pouvez enregistrer et imprimer votre document")
/Inline] 

si je met le code la page demander 
Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

If Not Intersect(Target, Range("E16")) Is Nothing Then

    Select Case Range("nom_shape2")
        Case Is = "MPC_1_1_2", "MPC_1_2_2", "MPC_1_3_2", "MPB_1_1_2", "MPB_1_10_2", "MPB_1_11_2"
            Call element1
        Case Else
    End Select

End If

If Not Intersect(Target, Range("g16")) Is Nothing Then

    Select Case Range("nom_shape2")
        Case Is = "MPC_1_1_2", "MPC_1_1_3", "MPC_1_1_3", "MPC_1_1_4", "MPC_1_1_5", "MPC_1_1_6", _
        "MPC_1_2_2", "MPC_1_2_3", "MPC_1_2_5", "MPC_1_2_6", _
        "MPC_1_3_2", "MPC_1_3_3", "MPC_1_3_4", "MPC_1_3_5", "MPC_1_3_6", _
        "MPB_1_1_2", "MPB_1_1_3", "MPB_1_1_5", "MPB_1_1_6", _
        "MPB_1_10_2", "MPB_1_10_3", "MPB_1_10_4", "MPB_1_10_5", "MPB_1_10_6", _
        "MPB_1_11_2", "MPB_1_11_3", "MPB_1_11_4", "MPB_1_11_5"

            Call element2
        Case Else
    End Select

End If

Application.ScreenUpdating = True

End Sub

Merci pour votre aide ou meme si faut payé un peu pas de souci

Bonjour et bienvenue,

ici c'est gratuit, mais on apprécie surtut les demandes avec fichier joint

tu peux essayer ceci

Dim cordon As variant

cordon = Worksheets("Info_Mat2").Range("I20").value

Merci ca ma changer le message erreur

erreur 9

indice et en dehors des dimension du tableau

Worksheets("Feuille_DMOS_cordon").Visible = True

mon fichier et trop gros pour le mettre sur le forum

Ta feuille Feuille_DMOS_cordon existe bien ? sous ce nom EXACT ?

Essaie ceci, mets ceci dans un module et lance la macro verifier :

Sub verifier()
    MsgBox FeuilleExiste("Feuille_DMOS_cordon")
End Sub

Function FeuilleExiste(sNomFeuille As String) As Boolean
    On Error GoTo Err_FeuilleExiste
    FeuilleExiste = False
    FeuilleExiste = Not ActiveWorkbook.Worksheets(sNomFeuille) Is Nothing
Err_FeuilleExiste:
End Function

Cela doit te répondre Vrai ou Faux.

Ca me dit faux

voir image des fichiers

Donc le nom de l'onglet n'existe pas !

Conseil : ne jamais recopier manuellement, sélectionne le nom de l'onglet en double-cliquant dessus, fais copier/coller, il doit y avoir un espace en trop ou un _ en trop ou en moins ou une autre faute de recopie.

Exemple ici, il y a un blanc en fin de nom ! |ici le nom de mon onglet |

je te remercie pour ton aide je vais regardé ca et vous tien au courant

Merci