bonjour
Un fonction perso
appelée comme ceci par exemple =mafonction("KO";A3:A23)
Function mafonction(v, zone)
phrase = ""
For Each i In zone
phrase = phrase & anal(i.Value, v)
Next
mafonction = phrase
End Function
Function anal(valeur, v)
n = 1: nf = 1
While nf > 0
nf = InStr(n, valeur, v)
If nf > 0 Then p = p & Mid(valeur, n, nf - n + Len(v)) & "/"
n = nf + 2
Wend
If p <> "" Then anal = Right(p, Len(p) - 1)
End Function