Erreur d'incompatibilité de type sur VBA

Bonjour,
je rencontre donc une "Erreur d'exécution '13': Incompatibilité de type" au moment de l'exécution de cette procédure (et me renvoie vers la ligne que j'ai surligné en gras plus bas):

Option Base 0
Public Vecteur_PrixH
Public Rentas_1H




Sub Vecteur_Prix_Hebdomadaires()
Range("B2" ).Select
ReDim Vecteur_PrixH(Selection.End(xlDown).Offset(0, 1).Value)
k = 0
Vecteur_PrixH(0) = Log(Selection)
For Each cellule In Range(Selection, Selection.End(xlDown)).Cells
If cellule.Offset(0, 1).Value <> k Then
Vecteur_PrixH(k + 1) = Log(cellule)
k = k + 1
End If
Next cellule
End Sub


Sub Variance_Hebdomadaire()
Range("B2" ).Select
ReDim Rentas_1H(Selection.End(xlDown).Offset(0, 1).Value - 1)
For i = 0 To Selection.End(xlDown).Offset(0, 1).Value - 1
Rentas_1H(i) = Vecteur_PrixH(i+1)-Vecteur_PrixH(i) C'est cette ligne qui semble poser problème!
Next i
End Sub


Je ne comprends pas d'où peut venir l'erreur d'incompatibilité de type...toute aide serait très appréciée!

Merci d'avance.