Si une âme égarée cherche la même chose que moi, ceci semble fonctionner
Sub VALIDER_ACTION()
Dim NumLigne
If Not IsError(Application.Match(Range("A1").Value, Worksheets("FEUILLE").Range("A:A"), 0)) Then
NumLigne = Application.Match(Range("A1").Value, Worksheets("FEUILLE").Range("A:A"), 0) '...