[COLOR="DarkSlateGray"]Sub tata()
Dim colonne(), n As Long
Rows(1).ClearContents [COLOR="SeaGreen"]'pour effacer le contenu de la première ligne[/COLOR]
colonne = Array(1, 2, 4, 5, 6, 17, 18, 19, 20, 21, 22, 24, 26, 28, 29, 30)
For n = LBound(colonne) To UBound(colonne)
Cells(1, colonne(n)).Value = n
Next n
End Sub[/COLOR]