Erreur d'execution 1004, erreur définie par l'application ou l'objet

Bonjour,

Je cherche à utiliser un userform qui viens récupérer les données de la pièce que je cherche à fabriquer et renseigne en sortie l'outillage nécessaire. Pour cela, je vais chercher dans une (assez petite) base de donnée excel les données outils afin de les comparer avec ce que veut l'utilisateur.

C'etait la théorie, maintenant dans la pratique, mon programme Excell plant dès que je vais récupérer les données dans la table où elles sont stockées, l'erreur exacte qui s'affiche est :
"Erreur d'execution '1004':
Erreur définie par l'application ou par l'objet".

Pourriez-vous m'expliquer comment corriger ce problème ?
Je vous met la partie du code concernée avec la ligne qui pose problème ici:

Type CôtesNorm
    Diamètre As Double
    Dôme As String * 10
    Pression As Double
    Matrice As String * 10
    AngleRéel As Double
    Angle As Double
    HautParoi As Double
    BasParoi As Double
    EpaisseurFond As Double
    CoteRognage As Double
    HautDôme As Double
End Type

Dim CotesNorm(1 To 100) As CôtesNorm

'***********************
'LectureCotesNormalisées
'***********************

'Ce sous programme récupère les côtes présente dans la table CôtesNormalisées
'et les enregistre dans un tableau de variables pour effectuer les calculs.

Sub LectureCotesNormalisées()
    Dim I, J, K As Integer
    Sheets("CôtesNormalisées").Activate
    I = Sheets("CôtesNormalisées").Range("CôtesNormalisées").Row
    J = Sheets("CôtesNormalisées").Range("CôtesNormalisées").Column
    K = 1
    Range("CôtesNormalisées").Worksheet.Activate
        Do While Cells(I, J) <> Empty
            With CotesNorm(K)
                .Diamètre = Cells(I, J)
                .Dôme = Cells(I, J + 1)
                .Pression = Cells(I, J + 2)
                .Matrice = Cells(I, J + 4)
                .AngleRéel = Cells(I, J + 5)
                .Angle = Cells(I, J + 6)
                .HautParoi = Cells(I, J + 7)
                .BasParoi = Cells(I, J + 8)
                .EpaisseurFond = Cells(I, J + 9) - 0.08
                .CoteRognage = Cells(I, J + 10)
                .HautDôme = Cells(I, J + 11)
            End With
        I = I + 1
        K = K + 1
        Loop
    NbCotes = K - 1 'compteur du nombre de côtes
End Sub

Les lignes qui ne fonctionnent pas sont les lignes 27 et 28.

Merci d'avance !