Sub supp_colonne()
Dim colonne As Range
Dim MaPlage As Range
Dim j, compteur, compteurmax
Set MaPlage = Application.InputBox(prompt:='Sélectionnez une plage de colonnes' _
, Title:='Plage de colonnes', Left:=500, Top:=300, Type:=8)
compteur = 1
compteurmax = MaPlage.Columns.Count
For Each colonne In MaPlage
j = colonne.Column
If compteur <= compteurmax Then
If Cells(1, j) <> 'titre' And Cells(1, j) <> 'nom' And Cells(1, j) <> _
'adresse' Then
Cells(1, j).Delete Shift:=xlToLeft
compteur = compteur + 1
End If
End If
Next
End Sub