Private Sub Form_Load() MsgBox RemoveNonNumeric("896e36g2") End Sub Public Function RemoveNonNumeric(ByVal Str As String) As String Dim i As Integer Dim Char As Long '# On regarde chacun des caractères de la chaîne For i = 1 To Len(Str) '# On mémorise le code ASCII du caractère considéré Char = AscW(Str) '# Si le caractère est un chiffre... If Char >= 48 And Char <= 57 Then '# On l'ajoute a la suite des autres RemoveNonNumeric = RemoveNonNumeric & ChrW(Char) End If '# On enlève le premier caractère Str = Mid$(Str, 2) Next i End Function