Sub SupprimeColonnes()
Dim v, c As Range, sup As Range
v = 300 'modifiable
For Each c In ActiveSheet.UsedRange.Rows(1).Cells
If c = v Then Set sup = Union(c, IIf(sup Is Nothing, c, sup))
Next
If Not sup Is Nothing Then sup.EntireColumn.Delete
End Sub