Private Sub CAfficher_Click()
'Déclaration d'un vecteur de Type défini "typeVar" (voir module 1)
Dim v() As typeVar: ReDim v(0)
' Ajout d'un espace en C6 pour que l'écriture commence en ligne 7
Range("C6").Resize(44, 3).ClearContents: Range("C6") = " "
'ajout dans le vecteur la base 1
Add "Base1", v
'ajout dans le vecteur la base 2
Add "Base2", v