Problème avec "If Not Application.Intersect"

Dans le code ci-dessous

If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
' mon code ici

si j'ai le malheur de sélectionner une ligne complète, il m'exécute quand même le code ...

J'avais lu ici récemment une astuce pour éviter de traiter une ligne complète.

Est-ce que le gentleman qui avait sorti cette astuce ou un autre grand expert peut me donner la solution ?

Bonjour

If Not Application.Intersect(Target, Range("B:B")) Is Nothing And Target.Count = 1 Then

Cordialement

Thanks a lot guy !