Microsoft 365 convertir une sting en une ligne de nombre

Public Function SerieN(V)
    G = Split(V, ",")
    For Each F In G
        N = Split(F, "-")
        Select Case UBound(N)
        Case 0: SerieN = SerieN & "," & N(0)
        Case 1: For I = N(0) To N(1)
                    SerieN = SerieN & "," & I
                Next
        Case Else: SerieN = xlErrValue
        End Select
    Next
    If Left(SerieN, 1) = "," Then SerieN = Mid(SerieN, 2)
End Function

Option Explicit
Public Vcalc As Variant
Public Function SerieN(V, Optional Target)
Dim F, G, N
Dim J As Integer
    G = Split(V, ",")
    For Each F In G
        N = Split(F, "-")
        Select Case UBound(N)
        Case 0: SerieN = SerieN & "," & N(0)
        Case 1: For J = N(0) To N(1)
                    SerieN = SerieN & "," & J
                Next
        Case Else: SerieN = xlErrValue
        End Select
    Next
    If Left(SerieN, 1) = "," Then SerieN = Mid(SerieN, 2)
    
    Select Case True
     Case IsMissing(Target)
     Case TypeName(Target) = "String": Vcalc = Range(Target).Address(External:=True) & "|" & SerieN
     Case TypeName(Target) = "Range":  Vcalc = Target.Address(External:=True) & "|" & SerieN
    End Select
    
End Function

Option Explicit
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim Target As Range
Dim Valeurs, Groupe
Dim J As Integer
    If Not IsEmpty(Vcalc) Then
        Groupe = Split(Vcalc, "|")
        Set Target = Range(Groupe(0))
        Valeurs = Split(Groupe(1), ",")
       ' On ne met à jour que les valeurs changées,
       ' sinon boucle infernale de calcul
        For J = 0 To UBound(Valeurs)
            If Target <> Val(Valeurs(J)) Then Target = Val(Valeurs(J))
            Set Target = Target.Offset(1)
        Next
        Vcalc = Empty
    End If

End Sub