=GAUCHE(A1)&STXT(A1;CHERCHE("-";A1)+1;1)
=GAUCHE(A2)&SI(ESTNUM(CHERCHE("-";A2));STXT(A2;CHERCHE("-";A2)+1;1);"")
Function Majusc(chaine)
Set obj = CreateObject("vbscript.regexp")
obj.Global = True
obj.Pattern = "[A-Z/ ]+"
Set a = obj.Execute(chaine)
For i = 0 To a.Count - 1: tmp = tmp & a(i): Next
Majusc = Replace(tmp, "/", " ")
End Function