Extraire les numéros et les caractères spéciaux d'une colonne

Bonsoir mes chers amis,

je suis à la recherche d'un code VBA qui me permettra d'extraire les numéros et les caractères spéciaux d'une colonne.

EX :

D-N23@5BA6 résultat : -23@56

Merci d'avance pour votre aide.

Bonjour,

avec une fonction personnalisée :

Function sansLettre(ch As String) As String
    Dim i As Long, car As String * 1
    For i = 1 To Len(ch)
        car = Mid(ch, i, 1)
        If car Like "[!A-Z,a-z]" Then sansLettre = sansLettre & car
    Next i
End Function

eric

Ca répond parfaitement à mon besoin .

Merci bcp ERIC !!!