Je recherche une macro qui supprimerait les colonnes dont la première ligne contient le mot " "
j'ai cherchais sur le forum sans résultat
.J'ai essayé de cette façon mais ça ne marche pas.
Sub test()
For i = Sheet1.UsedRange.Columns.Count + 1 To 4 Step -1
If Columns(i) Like "terme a supprimer" Then
Sheet1.Columns(i).Delete shift:=xlToLeft
End If
Next i
End Sub
Sub test()
Dim sup As String, i As Integer
sup = "*toto*" 'à adapter
With Sheet1.UsedRange
For i = .Columns.Count To 1 Step -1
If .Cells(1, i) Like sup Then .Columns(i).EntireColumn.Delete
Next
End With
End Sub