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 rouge 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.

rajoute "Option Explicit" au début de ton module
ça te forcera a déclarer toutes les variables avec un type...
 
le "i" de ta boucle actuelle est en théorie un variant (la je suis sur), ce qui peut peut-être poser problème pour "Rentas_1H(i)" essaye un truc du genre Rentas_1H(cint(i)) par curiosité...
(bref la je suis pas sur)