Sub suppCol()
Dim sh As Worksheet, r As Range, ch, i As Long, col As Range
Set sh = Worksheets("liste")
Set r = sh.Rows(1)
ch = Array("intitulé2", "intitulé3")
For i = 0 To UBound(ch)
Set col = r.Find(ch(i))
If Not col Is Nothing Then sh.Columns(col.Column).EntireColumn.Delete
Next i
End Sub