Supprimer colonne ne contenant pas

 ' Boucle de la colonne  nbColonnes  jusqu'à la colonne N°1
 ' nbColonnes  = Nombre de colonnes de ton tableau.
 for i=1 to nbColonnes Step -1
  '// la suite du code


  Next 'Fin de la boucle

If titre = "link" or titre="title" ...  Then

   Columns(i).EntireColumn.Delete

' liste des titres des colonnes à garder
Const listetitres = "titre2,titre4,titre8"

Const lititres = 1
Const codeb = 1

Public Sub OK()
Dim co As Long, cofin As Long
Application.ScreenUpdating = False
cofin = Cells(lititres, Columns.Count).End(xlToLeft).Column
For co = cofin To codeb Step -1
  If InStr(1, listetitres, Cells(lititres, co).Value) = 0 Then Columns(co).Delete
Next co
End Sub