Salut le Forum

En utilisant les expressions régulières

Function Musique(Valeur As String)
    Dim regEx As Object

    Application.Volatile
    Set regEx = CreateObject("VBScript.RegExp")

    With regEx
        .IgnoreCase = False
        .Global = True
        .Pattern = " "
        Valeur = .Replace(Valeur, "")
        .Pattern = "\([0-9][0-9]\)"
        Valeur = .Replace(Valeur, "")
        .Pattern = "[a]"
        Valeur = .Replace(Valeur, " ")
        .Pattern = "[m]"
        Valeur = .Replace(Valeur, "m ")
        .Pattern = "1[1-9]"
        Valeur = .Replace(Valeur, "0 ")
        .Pattern = "0"
        Valeur = .Replace(Valeur, "10")
    End With

    Musique = Valeur
    Set regEx = Nothing

End Function

Utilisation de la fonction

=Musique(K3)

Mytå