Double condition Si

Bonjour,

Je cherche à écrire la condition suivante

Si une des cellules de la ligne 1 contient le mot "others" et la cellule juste après contient le mot "Total" allors supprimer ces deux colonnes entières

J'ai commencé comme ça mais j'ai une erreur

Sub macro2()

For i = 1 To 350000

If Cells(1, i).Value = "others" And Cells(1, i + 1).Value = "Total" Then

End If

Next

End Sub

J'imagine qu'il existe un moyen plus simple pour l'écrire mais je ne vois pas

Merci pour votre aide

Bonjour

Essaie ce code

Sub macro2()
Dim cl As Integer
cl = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To cl
    If UCase(Cells(1, i)) = "OTHERS" And UCase(Cells(1, i + 1)) = "TOTAL" Then
        Cells(1, i + 1).EntireColumn.Delete
        Cells(1, i).EntireColumn.Delete
        cl = cl - 2
    End If
Next
End Sub

Si ok, merci lors de ta réponse de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

Bonjour Dan,

J'ai enlevé les Ucase pour qua ça marche mais sinon c'est parfait!

Merci beaucoup pour ton aide