Function NS(echel$, nb As Single) As Variant
Dim col As Byte, colmax As Byte, ns1$, ns2$, txt$
On Error Resume Next
With Sheets("Echelle de conversion")
col = Application.Match(echel, .Rows(6), 0)
colmax = .Cells(10, 256).End(xlToLeft).Column
For Each cel In .Range(.Cells(10, col), .Cells(65536, col).End(xlUp))
If IsNumeric(cel) Then
ns1 = cel.Text
ns2 = ns1
Else
txt = Replace(Replace(cel, "et ", ""), "à ", "")
ns1 = Split(txt, " ")(0)
ns2 = Split(txt, " ")(1)
End If
If nb >= Val(ns1) And nb <= Val(ns2) Then NS = .Cells(cel.Row, colmax): Exit Function
Next cel
End With
NS = "###"
End Function