Lancer une MsgBox sur condition cellule

Private Sub Worksheet_Change(ByVal [B]Target[/B] As Range)

End Sub

Private Sub Worksheet_Change(ByVal [B]Target[/B] As Range)
if target.address = "$S$25" then
    select case target
         case "A01"
               msgbox "Action 1"
         case "A02"
               msgbox "Action 2"
         case "A03","A04","A05" ' meme action pour les 3 codes
               msgbox "Action 3"
         case "A06"
               msgbox "Action 4"
    end select
end if
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$S$25" And Target.Count = 1 Then 
      If Target = "A00" Then MsgBox "xxx"
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$S$25" And Target.Count = 1 Then
       If InStr("A00 A01 A02 A03 A04", Target) > 0 Then MsgBox "yyy"
    End If
End Sub