Supprimer colonne si

bonjour,

je souhaite supprimer toute les colonnes qui ne contiennent pas en ligne 1 les mots avion ou voiture.

j'ai essayé un peu ci dessous , mais je rame

si quelqu'un a une idée

Sub test()
For col = 1 To 78
If Cells(1, col) <> ("avion") Or ("voiture") Then Columns(col).Delete
Next col
End Sub

merci

Bonjour,

Teste ceci :

Sub test()

    Dim I As Integer

    For I = 78 To 1 Step -1

        If Cells(1, I) <> ("avion") And Cells(1, I) <> ("voiture") Then Columns(I).Delete

    Next I

End Sub

Hervé.

parfait merci de ton aide