Erase tableau

Salut!!!!
Salut . Moi Pas comprendre pourquoi code Erase (nom du tableau) ne pas marcher dans code suivant :
xD

...
MsgBox Cells(z, 14).Value & " de la turbine : " & n_turbine
MsgBox "Attention Bigg!"
MsgBox TableEnergiePerdu(0)
    TableEnergiePerdu(e) = Cells(z, 14).Value
     
'LORSQUE une Energie <0
        If Cells(z, 14).Value < 0 Then
MsgBox "1° : " & TableEnergiePerdu(0)
MsgBox "ca marche ? dans le If"
            Erase TableEnergiePerdu
            e = 0
MsgBox "2° : " & TableEnergiePerdu(0)
            procedure3 tour, boucle, n_turbine, date_debut_probleme, date_fin_probleme, ligne, Status_code, reponsee, ErreurTurbine, erreur
        End If
...

Hmmmmmmmmm sans les Msgbox ca donne :

    TableEnergiePerdu(e) = Cells(z, 14).Value
   
        If Cells(z, 14).Value < 0 Then
            Erase TableEnergiePerdu
            e = 0
            procedure3 tour, boucle, n_turbine, date_debut_probleme, date_fin_probleme, ligne, Status_code, reponsee, ErreurTurbine, erreur
        End If

LE code bugg à la ligne
Erase TableEnergiePerdu
e = 0
Il me met que "l'indice n'appartient pas à la sélection"

Je ne sais pas pourquoi.
Si quelqu'un peut m'aider sa serai super cool
Merci !!