Microsoft 365 Limiter les caractères autorisés dans une cellule

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo, i&, x$, j%, y$
With UsedRange.Columns(1)
    tablo = .Resize(, 2).Formula 'matrice, plus rapide, au moins 2 éléments
    For i = 2 To UBound(tablo)
        x = tablo(i, 1)
        For j = Len(x) To 1 Step -1
            y = Mid(x, j, 1)
            If Not IsNumeric(y) And y <> "-" Then x = Left(x, j - 1) & Mid(x, j + 1)
        Next j
        tablo(i, 1) = x
    Next i
    '---restitution---
    Application.EnableEvents = False 'désactive les évènements
    .Value = tablo
    Application.EnableEvents = True 'réactive les évènements
End With
End Sub