Sub Supprespace()
Dim Cell As Range
For Each Cell In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Cell = Application.WorksheetFunction.Trim(Cell)
Next
End Sub
=ARRONDI(LOG(A1/440;2)*12+10;0)
=2^((B1-10)/12)*440
Function Log2(X As Double) As Double
Const InvLn2 = 161546953 / 111975815
Log2 = Log(X) * InvLn2 '1,4426950408889634073599246810019
End Function
Function Note(ByVal F As Double) As Integer
Const LogR122 = 212857425 / 12295127
Note = Int(Log(F / 440) * LogR122 + 0.5)
End Function
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