Sub No_Loop_Baby()
Dim noms
noms = Array("N? C", "Année", "N? T", "Type", "Valeur", "S/taxe", "Libell?", "Couleur", "Neuf", "Obli", "Ligne")
Range("A1").Resize(, UBound(noms) + 1) = noms
End Sub
Sub No_Loop_Baby_Light()
[A1:K1] = Array("N? C", "Année", "N? T", "Type", "Valeur", "S/taxe", "Libell?", "Couleur", "Neuf", "Obli", "Ligne")
End Sub
Sub No_Loop_Baby_UltraLight()
[A1:K1] = Split("N? C²Année²N? T²Type²Valeur²S/taxe²Libell?²Couleur²Neuf²Obli²Ligne", "²")
End Sub