Problème d'éciture macro

Bonjour

Je bloque sur un truc probablement simple mais pas assez pour moi.

J'ai écrit cette ligne

If Cells(I, 5) or Cells(I, 6) = Sheets(2).Range("B2") Then .Range("A" & I, "F" & I).Delete Shift:=xlUp

A priori je ne peut pas mettre de fonction Or ici

Comment je peux écrire si la cellule X ou la cellule Y est = à .... alors ...

Je me répond à moi même ^^

En écrivant comme ceci c'est bon

If Cells(I, 5) = Sheets(2).Range("B2") or Cells(I, 6) = Sheets(2).Range("B2") Then .Range("A" & I, "F" & I).Delete Shift:=xlUp