Montrer un userform si la cellule contient le mot

Bonjour à tous,

j'essaie d'écrire les lignes de code qui me permettront de faire apparaitre un userform, lorsque l'utilisateur clique sur "en commande", présent en colonne B et uniquement si la cellule contient "en commande". Le clic sur les autres cellules de la colonne B ne contenant pas "en commande" doit être inefficace...

Mon code actuel :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Cel = Columns("B").Find(what:="En commande", LookIn:=xlValues, lookat:=xlPart)
  If Not Cel Is Nothing Then
UserForm2.Show
end sub

Ce code fait apparaitre l'userform dès que l'utilisateur clique sur n'importe quelle cellule de la colonne B...

Merci beaucoup de votre aide,

Bonne journée,

Amicalement

Bonjour

A tester

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 2 And InStr(1, Target, "En commande", vbTextCompare) > 0 Then
    UserForm2.Show
  End If
End Sub

Bonjour Banzai, le forum,

Ca marche ! Merci beaucoup !!

Bonne journée

Amicalement: