XL 2019 filter en VBA des nombres au format texte

With Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    .Value=.Value
    .NumberFormat = "General"
End With

Sub ConvertirTexteEnNombre()
    ' On cible la colonne A de la feuille active
    With Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
        ' La fonction TextToColumns force Excel à réévaluer le type de données
        .TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, FieldInfo:=Array(1, 1)
        ' On remet le format de cellule en "Standard" ou "Nombre"
        .NumberFormat = "General"
    End With
End Sub