Exécution conditionel d'une macro

Bonjour,

je voudrais une macro qui s'exécute à la saisie d'une cellule suivant une condition.

Ex: quand je saisie un chiffre dans A1<B1 =exécution de la macro
quand je saisie un chiffre dans A2<B2 =exécution de la macro

etc....

Mais je suis novice et je galère; j'avais commencé à écrire ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("p3") < Range("w3") Then
MsgBox ("erreure")
End If
If Range("p4") < Range("w4") Then
MsgBox ("erreure")
End If
If Range("p5") < Range("w5") Then
MsgBox ("erreure")
End If
If Range("p6") < Range("w6") Then
MsgBox ("erreure")
End If
If Range("p6") < Range("w6") Then
MsgBox ("erreure")
End If
End Sub

mais cela ne fonctionne pas car la macro s'exécute à chaque fois que je sélectionne une nouvelle cellule.
En plus, si je dois le faire pour 200 lignes ou + ça va être super lourd.
Bref je suis paumé.
Je pensait à une solution avec BOOLEAN mais j'ai du mal à mettre en place!

Merci à celles et ceux qui voudraient bien m'aider à résoudre ce problème.