XL pour MAC addition de valeur en gras

Sub Effacer_non_gras()
Dim t#, c As Range, x$, i%, n&
t = Timer
Application.ScreenUpdating = False
For Each c In ActiveSheet.UsedRange
    If c <> "" Then
        x = c
        For i = Len(x) To 1 Step -1
            If Not c.Characters(i, 1).Font.Bold Then n = n + 1: x = Left(x, i - 1) & Mid(x, i + 1)
        Next i
        If IsNumeric(x) Then c = CDbl(x) Else c = x 'convertit en nombre
    End If
Next c
ActiveSheet.UsedRange.Font.Bold = True
Application.ScreenUpdating = True
MsgBox Format(Timer - t, "0.00 \sec") & vbLf & vbLf & IIf(n, Format(n, "#,##0") & " caractères ont été effacés", "Aucun caractère n'a  été effacé"), , "Durée d'exécution"
End Sub

Sub Nettoie()
    Dim t, DL%, L%, C%, Pos%, Valeur
    t = Timer
    Application.ScreenUpdating = False
    DL = Range("J65500").End(xlUp).Row
    For C = 1 To 10
        For L = 10 To DL
            Chaine = Cells(L, C) & Chr(10)
            If Len(Chaine) > 1 Then
                Pos = Application.Search(Chr(10), Chaine)
                Valeur = Left(Chaine, Pos)
                If Valeur Like "*,*" Then Valeur = Val(Replace(Valeur, ",", "."))
                Cells(L, C) = Valeur
            End If
        Next L
    Next C
    MsgBox Format(Timer - t, "0.00 \sec")
End Sub

Sub Effacer_nombres_non_gras()
Dim t#, c As Range, s
t = Timer
Application.ScreenUpdating = False
For Each c In Range("B6:J" & Cells.SpecialCells(xlCellTypeLastCell).Row)
    If c <> "" Then
        s = Split(c, vbLf)
        If IsNumeric(s(0)) Then c = CDbl(s(0)) Else c = s(0)
    End If
Next c
Application.ScreenUpdating = True
MsgBox Format(Timer - t, "0.00 \sec"), , "Durée d'exécution"
End Sub

If IsNumeric(x) Then c = CDbl(x) Else c = x 'convertit en nombre