Iserror de Vlookup renvoi "erreur 1004"

Bonjour à tous,

Cela fait un moment que je galère avec ce morceau de code qui me renvoi une erreur 1004 lorsque la valeur de la cellule n'est pas trouvé dans le tableau de la "Feuil2" :

Sub Mise_A_Jour()

Dim Cell As Range

Range("c11:cd24").Select

For Each Cell In Selection

If IsError(WorksheetFunction.VLookup(Cell.Value, Sheets("feuil2").Range("b7:cm350"), 4, False))= true then _

msgbox "Pas trouvé" else msgbox "ok"

Next

End sub

Est ce que quelqu'un aurait un code magique?? lol

Merci d'avance

Bonsoir,

une proposition

Sub Mise_A_Jour()
    Dim Cell As Range
    Range("c11:cd24").Select
    For Each Cell In Selection
        If Sheets("sheet2").Range("b7:cm350").Find(Cell.Value, lookat:=xlWhole) Is Nothing Then _
           MsgBox "Pas trouvé" Else MsgBox "ok"
    Next
End Sub

Bonsoir

Bonsoir h2so4

J'utilise ceci : Ne me demande pas pourquoi cela fonctionne

Sub Mise_A_Jour()
Dim Cell As Range

  Range("c11:cd24").Select
  For Each Cell In Selection
    If IsError(Application.VLookup(Cell.Value, Sheets("feuil2").Range("b7:cm350"), 4, False)) = True Then _
        MsgBox "Pas trouvé" Else MsgBox "ok"
  Next
End Sub

PS: 1120 messages à acquitter (bon courage)

Merci à tous les deux!!

Bonne nuit