VBA Valider une donnée dans une plage

Bonjour à vous,

Je voudrais faire une validation d'une cellule dans une plage de donnée. Par exemple, si je sélectionne "c" dans, mais qu'il n'est pas dans ma liste de validation, ne rien faire.

Merci de votre aide !

Vincent

Bonjour

Ton message n'est pas clair.

Explique mieux ce que tu souhaites et relis-toi avant de poster.

A te relire

Bonjour

Code Sheet1

Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Application.Intersect(Target, Range("D4")) Is Nothing Then 
Call Cherche
End If 
End Sub 

Code Module

Sub Cherche()
Application.ScreenUpdating = False
Dim i As Byte
For Each MaCellule In Range("Val")
On Error Resume Next
i = Application.WorksheetFunction.Match(Range("D4").Value, Sheets("Sheet1").Range("Val"), 0)
Next MaCellule
If i > 0 Then
MsgBox "La valeur en D4 est dans la liste de validation"
ElseIf i = 0 Then
MsgBox "La valeur en D4 n'est pas dans la liste de validation"
End If
End Sub

Cordialement

Merci Beaucoup Amadéus pour ton aide.

Bonne journée !