S'il s'agit que le plus petit indice de liste soit 1 dès le chargement, écrire
VB:
Option Base 1
en tête du module, comme le suggère camarchepas.
S'il s'agit d'éliminer le premier élément de la liste et de diminuer de 1 l'indice des autres éléments :
VB:
Sub tata()
Dim i&, liste()
liste = Array(36, 24, 5, 8, 9)
For i = 1 + LBound(liste) To UBound(liste): liste(i - 1) = liste(i): Next
ReDim Preserve liste(UBound(liste) - 1)
End Sub
S'il s'agit d'éliminer le premier élément de la liste sans que l'indice des autres éléments soit modifié :
VB:
Sub toto()
Dim i&, liste(), tmp()
liste = Array(36, 24, 5, 8, 9)
ReDim tmp(1 + LBound(liste) To UBound(liste))
For i = 1 + LBound(liste) To UBound(liste): tmp(i) = liste(i): Next
liste = tmp
Erase tmp
End Sub