Range et If Cells pour plusieurs colonnes

Bonjour,

J'ai une macro qui me masque les lignes contentant "Démarrage à froid" de la colonne AE.
Je souhaiterais l'adapter pour qu'elle me masque également les lignes contenant "Démarrage à froid" de la colonne AF.

Comment puis-je faire ?

Sub FiltrerParDémarrageAFroid()
' |Démarrage à froid|
Application.ScreenUpdating = False
dl = Range("AE" & Rows.Count).End(xlUp).Row
    For i = 6 To dl
           If Cells(i, "AE") <> "Démarrage à froid" Then
            Rows(i).EntireRow.Hidden = True
           End If
     Next
End Sub

Salutations,
Cédric Pillonel.

Bonjour

Essau avec ça :

Sub FiltrerParDémarrageAFroid()

    ' |Démarrage à froid|
    Dim i&, dl&
    Application.ScreenUpdating = False
    dl = Range("AE" & Rows.Count).End(xlUp).Row
    For i = dl To 6 Step -1
           If Cells(i, "AE") = "Démarrage à froid" _
              Or Cells(i, "AF") = "Démarrage à froid" Then
            Rows(i).EntireRow.Hidden = True
           End If
     Next
End Sub

Bye !

Merci beaucoup !

Rechercher des sujets similaires à "range colonnes"