bonjour StL99,
Sub Jauner()
Dim cOrigine, r, c
Set cOrigine = Sheets("origine").UsedRange.Columns("A") 'vos N°s dans origine
For Each c In Sheets("MeF").Columns(1).SpecialCells(xlConstants) 'vos N°s dans MeF
r = Application.Match(c.Value, cOrigine, 0) 'essayer comme le contenu de MeF
'If Not IsNumeric(r) Then r = Application.Match(CStr(c.Value), cOrigine, 0) 'si erreur, essayer comme c'est un text
c.Resize(, 5).Interior.Color = IIf(IsNumeric(r), RGB(255, 255, 0), xlNone)
Next
End Sub