Format text en nombre dans une cellule fusionnée

Bonjour le forum,
voila mon petit soucis ce matin,
mes valeurs venant d'un userform sont en format text.
j'ai trouvé ce code pour les convertir en nombre
maintenant j'ai un souci car dans les cellules fusionnées de ma feuille, cela ne fonctionne pas
avez vous des pistes
merci

Selection.Offset(0, 5).Value = Me.Totaux_SJTC_Fr
           Selection.Offset(0, 5).TextToColumns Destination:=Selection.Offset(0, 5), DataType:=xlDelimited, _
        TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True