J'ai un souci avec la requête s il n y 'a pas de correspondance le script s'arrête.

Ai je fais une erreur en l'adaptant

je veux rechercher la valeur de la colonne E de l'onglet base
je veux afficher la valeur se trouvant dans la Colonne FL de l'onglet référence.
Afficher la valeur trouver dans l'onglet de référence dans la colonne X de l'onglet de Base

actuellement si le script ne trouve pas de correspondance il s'arrete
Ce que je voudrais c'est que le script affiche "non référencé"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Formule_test()
 
Dim C As Range, Plage As Range, X As Range
With Sheets("base")
    Set Plage = .Range("E2", .Cells(.Rows.Count, 1).End(xlUp))
End With
With Sheets("référence")
    For Each C In Plage
        Set X = .[A:A,B:B,D:D].Find(C.Value, , , xlWhole)
        C.Offset(, 19).Value = .Cells(X.Row, 167).Value    'mis 19  pour  l'ecart entre E et X 
    Next C
End With
End Sub