Function ExtNum(texte, Optional QueLesF)
Dim tablo, elem, DebutF As Boolean
ExtNum = vbNullString
tablo = Split(UCase(texte))
For Each elem In tablo
DebutF = False
If elem Like "F#*" Then elem = Replace(elem, "F", 0): DebutF = True
elem = "0" & elem
If elem Like "0#*" Then
If IsNumeric(elem) Then
If CInt(elem) = elem Then
If DebutF And IsMissing(QueLesF) Then
ExtNum = ExtNum & ";" & Format(CInt(elem), "###")
ElseIf Not IsMissing(QueLesF) Then
ExtNum = ExtNum & ";" & Format(CInt(elem), "###")
End If: End If: End If: End If
Next elem
If Left(ExtNum, 1) = ";" Then ExtNum = Mid(ExtNum, 2)
End Function