Erreur d'execution 9

Bonjour à tous, le code ci-dessous me renvoie l'erreur d'execution 9: l'indice n'appartient pas a la selection

Private Sub CommandButton1_Click()
    Application.Visible = True
    cah = UserForm1.cah.Value
    ca = UserForm1.ca.Value
    rtth = UserForm1.rtth.Value
    bonus = UserForm1.bonus.Value
    rech = UserForm1.rech.Value
    absex = UserForm1.absex.Value
    sanssal = UserForm1.sanssal.Value
    can = UserForm1.can.Value
    chp = UserForm1.chp.Value

    'DU
    cah_du = UserForm1.cah_du.Value
    ca_du = UserForm1.ca_du.Value
    rtth_du = UserForm1.rtth_du.Value
    bonus_du = UserForm1.bonus_du.Value
    rech_du = UserForm1.rech_du.Value
    absex_du = UserForm1.absex_du.Value
    sanssal_du = UserForm1.sanssal_du.Value
    can_du = UserForm1.can_du.Value
    chp_du = UserForm1.chp_du.Value

    'AU
    cah_au = UserForm1.cah_au.Value
    ca_au = UserForm1.ca_au.Value
    rtth_au = UserForm1.rtth_au.Value
    bonus_au = UserForm1.bonus_au.Value
    rech_au = UserForm1.rech_au.Value
    absex_au = UserForm1.absex_au.Value
    sanssal_au = UserForm1.sanssal_au.Value
    can_au = UserForm1.can_au.Value
    chp_au = UserForm1.chp_au.Value

    Worksheets("IMPRIME CP petit modèle").Range("E8") = cah
    Worksheets("IMPRIME CP petit modèle").Range("E9") = ca
    Worksheets("IMPRIME CP petit modèle").Range("E12") = rtth
    Worksheets("IMPRIME cp petit modèle").Range("E14") = bonus
    Worksheets("IMPRIME cp petit modèle").Range("E15") = rech
    Worksheets("IMPRIME cp petit modèle").Range("E17") = absex
    Worksheets("IMPRIME cp petit modèle").Range("E19") = sanssal
    Worksheets("IMPRIME cp petit modèle").Range("E10") = can
    Worksheets("IMPRIME cp petit modèle").Range("E11") = chp
    Worksheets("IMPRIME cp petit modèle").Range("H8") = cah_du
    Worksheets("IMPRIME cp petit modèle").Range("J8") = cah_au
    Worksheets("IMPRIME cp petit modèle").Range("H9") = ca_du
    Worksheets("IMPRIME cp petit modèle").Range("J9") = ca_au
    Worksheets("IMPRIME cp petit modèle").Range("H12") = rtth_du
    Worksheets("IMPRIME cp petit modèle").Range("J12") = rtth_au
    Worksheets("IMPRIME cp petit modèle").Range("H14") = bonus_du
    Worksheets("IMPRIME cp petit modèle").Range("J14") = bonus_au
    Worksheets("IMPRIME cp petit modèle").Range("H15") = rech_du
    Worksheets("IMPRIME cp petit modèle").Range("J15") = rech_au
    Worksheets("IMPRIME cp petit modèle").Range("H17") = "Du " & absex_du & " au " & absex_au
    Worksheets("IMPRIME cp petit modèle").Range("H19") = "Du " & sanssal_du & " au " & sanssal_au
    Worksheets("IMPRIME cp petit modèle").Range("H10") = can_du
    Worksheets("IMPRIME cp petit modèle").Range("J10") = can_au
    Worksheets("IMPRIME cp petit modèle").Range("H11") = chp_du
    Worksheets("IMPRIME cp petit modèle").Range("J11") = chp_au

    UserForm1.cah.Value = ""
    UserForm1.ca.Value = ""
    UserForm1.rtth.Value = ""
    UserForm1.bonus.Value = ""
    UserForm1.rech.Value = ""
    UserForm1.absex.Value = ""
    UserForm1.sanssal.Value = ""
    UserForm1.can.Value = ""
    UserForm1.chp.Value = ""

    'DU
    UserForm1.cah_du.Value = ""
    UserForm1.ca_du.Value = ""
    UserForm1.rtth_du.Value = ""
    UserForm1.bonus_du.Value = ""
    UserForm1.rech_du.Value = ""
    UserForm1.absex_du.Value = ""
    UserForm1.sanssal_du.Value = ""
    UserForm1.can_du.Value = ""
    UserForm1.chp_du.Value = ""

    'AU
    UserForm1.cah_au.Value = ""
    UserForm1.ca_au.Value = ""
    UserForm1.rtth_au.Value = ""
    UserForm1.bonus_au.Value = ""
    UserForm1.rech_au.Value = ""
    UserForm1.absex_au.Value = ""
    UserForm1.sanssal_au.Value = ""
    UserForm1.can_au.Value = ""
    UserForm1.chp_au.Value = ""
    End Sub

Le débogueur me renvoie sur la ligne Worksheets("IMPRIME CP petit modèle").Range("E8") = cah

Quelqu'un aurait il une explication svp (auquel cas la solution).

D'avance Merci

Bonjour djez,

Regarde si la feuille qui s'intitule exactement "IMPRIME CP petit modèle" existe vraiment.