Function ExtractNumber(cel As Range, n As Byte) As Double
'Renvoie un chiffre situé à telle position dans un chaîne qui contient plusieurs numéros
'- n : numéro d'ordre du nombre recherché
'Exemple, en A1 il y a "Romina a 1 magnifique chatte, 2 petits chiens adorables & 4 sœurs à tomber à la renverse" : NumDansCadena([A1],3) --> 4
'job75
Dim txt As String, i%, t As String, u As String, s
txt = cel.Value: txt = Replace(txt, ",", ".")
For i = 1 To Len(txt)
t = Mid(txt, i, 1): u = Mid(txt, i, 2)
If t <> "." And Not (t Like "#" Or u Like "-#") Then txt = Application.Replace(txt, i, 1, " ") 'fonction REMPLACER
Next
s = Split(Application.Trim(txt)) 'SUPPRESPACE
If n - 1 > UBound(s) Then ExtractNumber = "" Else ExtractNumber = Val(s(n - 1))
End Function