Re le Forum

Pour travailler sur un nombre de colonnes variables.

Function Musique(Valeur As String)
    Dim I As Byte, Cols As Byte
    Dim regEx As Object, Temp() As String

    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

    Temp = Split(Valeur, " ")
    Cols = Application.Caller.Columns.Count
    If UBound(Temp) < Cols Then
        ReDim Preserve Temp(Cols - 1)
        For I = UBound(Temp) To Cols - 1
            Temp(I) = ""
        Next I
    End If

    Musique = Temp
    Set regEx = Nothing
    
End Function

Utilisation de la formule matricielle (Valider par Ctrl+Shift+Enter) sur la plage de cellules.

=Musique(K3)

Après validation des accolades devraient apparaître.
{=Musique(K3)}

Mytå