Sub suppvirgule2()
Dim t1() As Variant, t2() As Variant, i As Integer, j As Integer, b As Boolean
t1 = Range("F2:F" & Range("F65536").End(xlUp).Row).Value
t2 = Range("G4:G" & Range("G65536").End(xlUp).Row).Value
For i = LBound(t1, 1) To UBound(t1, 1)
b = False
For j = LBound(t2, 1) To UBound(t2, 1)
If t1(i, 1) = t2(j, 1) Then b = True
Next j
If b = False Then t1(i, 1) = Replace(t1(i, 1), ",", " ")
Next i
Range("F2:F" & UBound(t1, 1) + 1).Value = t1
End Sub