Parcours de cellules qui foire

Bonjour,
Voici un bout de code qui repond au click d'un bouton Enregistrer

Dim var As Integer 
Dim var2 As Integer 
Dim numfic As Integer 
Dim reclen As Integer 
Dim RecValeur As EnrValeur 
Dim RecValeur_Base As EnrValeur 
numfic = FreeFile 
reclen = Len(RecValeur) 
Dim LogFile As String 
var = 1 


LogFile = TextBox1.Text 
      

Donnees = Now() 

Open LogFile For Random As numfic Len = reclen 
Get #numfic, 1, RecValeur_Base 

Close #numfic 
RecValeur = RecValeur_Base 
'Remplissage du tableau Bt 
For Each c In Worksheets("Feuil1").Range("E3:E32").Cells <<<<< 
  
  RecValeur.bt(var, 1) = c.Value 

  var = var + 1 
Next c 

var = 1 

Comme vous le voyez je parcours une colonne( E) de ma fiche excel de
E3 à E32 et toutes ces cellules contiennent une valeur.
Le tableau bt est de 30 *12 donc normalement pas de out of range or j'ai
l'excepetion en dehors de la plage.

Je vous montre le type de BT:

Type EnrValeur 
     Mois(1 To 12) As String * 10 
     E(1 To 126) As Single 
     prix_chauff(1 To 8, 1 To 6) As Single 
     e_vmc(1 To 4, 1 To 6) As Single 
     s(1 To 13) As Single 
     bt(1 To 30, 1 To 12) As Single 
End Type 

Une idée... Merci

<<<<<: la ligne qui foire.
_________________
La destinée existe et ce qui nous en rapproche est l'effort personnel ...
A vaincre sans périls, on triomphe sans gloire.