concaténation variable suivant le contenu (position du texte dans la cellule)

Sub travdem()
Dim Cellule As Range
Dim Nomfeuille1 As String
Dim Col As String
Dim data1() As String
'parametre
Col = "A"
With Sheets("Feuil1")
For Each Cellule In .Range(Col & "2:" & Col & .Range(Col & .Rows.Count).End(xlUp).Row)
    data1 = Split(Replace(Cellule.Value, ".", ","), ",")
    Select Case UBound(data1)
        Case 0
            Cellule.Offset(0, 1) = Cellule
        Case 1
            Cellule.Offset(0, 1) = "  " & Cellule
        Case Is > 1
            Cellule.Offset(0, 1) = "  " & Cellule
            Cellule.Offset(0, 1).HorizontalAlignment = xlRight
    
    End Select
Next Cellule
End With
End Sub