'Définition de la variable
Type Voiture
.Marque
.Type
.Couleur
End Type
'Chargement de la table Excel
Sub Chargement
Dim Voitures() as Voiture
Voitures(1).Marque = Cells(1,1)
Voitures(1).Type = Cells(1,2)
Voitures(1).Couleur = Cells(1,3)
Voitures(1).Marque = Cells(2,1)
Voitures(1).Type = Cells(2,2)
Voitures(1).Couleur = Cells(2,3)
etc...
End sub