Function NumSeul(target As String) As Double
'USAGE : =NumSeul(A1)
Dim tampon As String, position As Double, Longueur As Integer, caractere As String
Application.Volatile '- - - permet la ré-évaluation en cas de changement sur la feuille
tampon = "0" '- - - - -- -variable temporaire
Longueur = Len(target) ' - -longueur de la chaine en entrée
For position = 1 To Longueur ' - -boucle sur chaque caractère de la chaine en entrée
caractere = Mid(target, position, 1) ' - caractère en cours d'évaluation
tampon = tampon & IIf(IsNumeric(caractere), caractere, "") ' - évaluation si caractère numérique
Next
NumSeul = CDbl(tampon) ' - - variable numérique de sortie
End Function