Sub lesArrayCestSimple1() 'première approche
Dim Tb() As Variant
Dim i As Byte
Cells.Clear
Tb = Array("Toto", "Zaza", "Mimi", "Nono", "Babu")
For i = 1 To UBound(Tb, 1) 'UBound retourne la limite supérieure
'de la dimension voulue d'un tableau
Cells(i, 1) = Tb(i) 'on remplit en colonne
Cells(5, i + 2) = Tb(i) 'on remplit en ligne
Next i
'Transfert Tb sur la feuille
'------------------------------
'transfert en colonne fonctionne
Range("e10").Resize(UBound(Tb)) = Application.Transpose(Tb)
'transfert en ligne ne fonctionne pas, renvoie le 1er index
Range("f10").Resize(UBound(Tb)) = Tb
Stop
End Sub