XL 2019 Retirer les traits d'unions dans les cellules

Sub remplacer()
Range("b1") = Replace(Range("a1"), "-", "") 'résultat en colonne b
Range("a1") = Replace(Range("a1"), "-", "") 'En écrasant la cellule elle même
End Sub

Sub replace_Tirets()
    With Range("d1", Cells(Rows.Count, "D").End(xlUp))
        .Replace what:="-", Replacement:="", LookAt:=xlPart
        .EntireColumn.NumberFormat = "General"
    End With
End Sub

Sub Remplacer_tirets()
Dim c As Range
With [A1].CurrentRegion.Columns(1) 'à adapter
    .NumberFormat = "yyymmdd"
    For Each c In .Cells
        c = Replace(c.Value2, "-", "/")
    Next
End With
End Sub

Sub Remplacer_tirets()
Dim tablo, i&
With [A1].CurrentRegion.Columns(1) 'à adapter
    tablo = .Resize(, 2).Value2 'matrice, plus rapide, au moins 2 éléments
    For i = 2 To UBound(tablo)
        tablo(i, 1) = Replace(tablo(i, 1), "-", "/")
    Next
    '---restitution---
    .NumberFormat = "yyymmdd"
    .Value = tablo
End With
End Sub