Function Extract(x$, txt$)
Dim L%, LL%, i%, j%
L = Len(x): LL = Len(txt)
For i = 1 To L
If Mid(x, i, 2) Like "##" Then
For j = i + 2 To L
If Not Mid(x, j, 1) Like "#" Then Exit For
Next j
Extract = Mid(x, i, j - i) 'extraction des chiffres
If i > LL Then If Mid(x, i - LL, LL) = txt Then Extract = txt & Extract 'ajout du texte
Exit Function
End If
Next i
End Function