VBA valeur cellule condition autre colonne

Bonjour le forum

Pouvez vous svp m'aider avec ce petit bout de code
J'ai 2 colonnes A & B avec chacune une entête de colonne
Ce que je voudrais c'est que pour toute cellule de la colonne B qui serait égale à AFTER alors la cellule de la colonne A soit égale à BEFORE

For p = 1 To Sheets("importx").Range("B" & Cells.Rows.Count).End(xlUp).Row

If Sheets("importx").Cells(p, 2) = "AFTER" Then Sheets("importx").Cells(p - 1, 2) = "BEFORE"

Next p

Mais y'a quelque chose qui cloche et je ne vois pas

Encore merci
Philippe