Function Note(ByVal F As Double) As String
Const LogR122 = 212857425 / 12295127
Dim N As Long
N = Int(Log(F / 440) * LogR122 + 0.5)
Note = Array("LA", "LA#", "SI", "DO", "DO#", "RÉ", "RÉ#", "MI", "FA", _
"FA#", "SOL", "SOL#")((N + 36) Mod 12) & String((N + 9) \ 12, "+")
End Function