Sub macro16()
Dim F
Dim i As Integer
Dim j As Integer
F = Array(10, 11, 16, 17, 21, 27, 29)
For j = 15 To 1 Step -1 '15 premieres colonnes
colonneAgarder = False
For i = 0 To 6 'premier ligne a tester
If Cells(1, j) = F(i) Then colonneAgarder = True
Next i
If colonneAgarder = False Then Columns(j).Delete
Next j
End Sub