=SI(ESTNUM(CHERCHE("Q";A1));GAUCHE(STXT(A1;TROUVE("µ";SUBSTITUE(" "&A1&" ";" ";
"µ";NBCAR(GAUCHE(A1;CHERCHE("Q";A1)))-NBCAR(SUBSTITUE(GAUCHE(" "&A1&" ";CHERCHE(
"Q";A1));" ";""))));99)&" ";CHERCHE(" ";STXT(A1;TROUVE("µ";SUBSTITUE(" "&
A1&" ";" ";"µ";NBCAR(GAUCHE(A1;CHERCHE("Q";A1)))-NBCAR(SUBSTITUE(GAUCHE(" "&A1
&" ";CHERCHE("Q";A1));" ";""))));99)&" ")-1);"")
[COLOR="DarkSlateGray"][B]Function a_un_q$(c$)
Application.Volatile
Dim i&, j&, k&
For i = 2 To Len(c) + 2
If UCase(Mid$(" " & c & " ", i, 1)) = "Q" Then
For j = i - 1 To 1 Step -1
If Mid$(" " & c & " ", j, 1) = " " Then Exit For
Next j
For k = i + 1 To Len(c)
If Mid$(" " & c & " ", k, 1) = " " Then Exit For
Next k
a_un_q = Trim(a_un_q & IIf(a_un_q = "", "", "/") & Mid$(c, j, k - j))
i = k
End If
Next i
End Function[/B][/COLOR]