Function NiemeEntier(x, Optional n)
' X -> texte ; n -> rang entier à extraire
Dim i
If IsMissing(n) Then n = 1
For i = 1 To Len(x)
Mid(x, i, 1) = IIf(Asc(Mid(x, i, 1)) >= Asc("0") And Asc(Mid(x, i, 1)) <= Asc("9"), Mid(x, i, 1), " ")
Next i
If n - 1 <= UBound(Split(Application.WorksheetFunction.Trim(x))) Then
NiemeEntier = CLng(Split(Application.WorksheetFunction.Trim(x))(n - 1))
Else
NiemeEntier = ""
End If
End Function