Public Function recup_txt(cell As Range)
Dim texte As String, Num As String
Dim car As Integer
Num = "-0123456789"
texte = cell.Value
For car = 1 To 11
texte = Replace(texte, Mid(Num, i, 1), "")
Next car
If Left(texte, 1) = "" Then
texte = Right(texte, Len(texte) - 1)
End If
recup_txt = texte
End Function