Code VBA affichage valeurs Feuille 3 sur Feuille 1 ou Feuille 2

Bonjour à tous

Je n'arrive pas S.V.P à adapter ce code pour vérifier la colonne D de la feuille 3 si elle contient la valeur "Ag" alors afficher les valeurs de la feuille 3 dans la feuille 1.
Et si la valeur est "Ap" alors afficher les valeurs de la feuille 3 dans la feuille 2 et si la valeur n'est ni "Ag" ni "Ap", aucune action n'est entreprise ou un message d'erreur. pour plus de détails ci-joints un fichier Excel pour test. Merci d'avance.

Bonjour, vous faites un test sur toutes les cellules.

Il faut faire un test uniquement sur la valeur renvoyée par la recherche de G2 dans le tableau colonne 4.

variable = Application.Evaluate("IFERROR(VLOOKUP('" & ws.Name & "'!G2,'" & ws.Name & "'!A17:S400,4,FALSE),"""")")
'MsgBox variable
    If variable = "Ag" Then

Merci infiniment pour ton aide, j'aimerai aussi Ajouter un msgbox si la cellule G2 est vide ou la valeur de la colonne D n'existe pas ou incorrect.

Ajoute ces lignes de condition aprés variable= ... :

variable = Application.Evaluate("IFERROR(VLOOKUP('" & ws.Name & "'!G2,'" & ws.Name & "'!A17:S400,4,FALSE),"""")")

If variable = "" Then
MsgBox "Il n'y a pas de correspondance à la valeur cherchée en G2"
Exit Sub
End If

Bonjour, ça marche très bien merci beaucoup