Sub test()
Debug.Print SupprimerChiffre("SADRE A 2")
End Sub
Function SupprimerChiffre(v As String) As String
Dim regex As Object, str As String
Set regex = CreateObject("VBScript.RegExp")
With regex
.Pattern = "[0-9]"
.Global = True
End With
SupprimerChiffre = Trim(regex.Replace(v, ""))
Set regex = Nothing
End Function