Find & Replace in kolom van tabel

Sub Kolommen()
Dim kolom As Column, cel As Cell
Dim i As Integer, x As Integer, iW As Double, sW As String
Dim arr As Variant
    
    arr = Array(3, 8)
    For i = LBound(arr) To UBound(arr)
        x = arr(i)
        Set kolom = ActiveDocument.Tables(2).Columns(x)
        For Each cel In kolom.Cells
            If x = 8 Then
                cel.Range.Text = Split(cel.Range.Text, " ")(LBound(Split(cel.Range.Text, " "))) & " " _
                    & Format(CDbl(Replace(Split(Replace(Left(cel.Range.Text, Len(cel.Range.Text) - 1), ",", ""), " ") _
                    (UBound(Split(Replace(Left(cel.Range.Text, Len(cel.Range.Text) - 1), ",", ""), " "))), ".", ",")), "#,##0.00")
            Else
                cel.Range.Text = Replace(Replace(cel.Range.Text, ",", ""), ".", ",")
            End If
        Next cel
    Next i
End Sub

Sub M_snb()
    ThisDocument.Tables(2).Columns(8).Select
    With Selection.Find
        .Execute Split(Selection)(0), replacewith:="", Replace:=2
        .Execute ",", replacewith:="", Replace:=2
        .Execute ".", replacewith:=",", Replace:=2
    End With

    ThisDocument.Tables(2).Columns(3).Select
    Selection.Find.Execute ".", replacewith:=",", Replace:=2
End Sub