Function ExtraireChaine(c As String) As String
Set obj = CreateObject("vbscript.regexp")
obj.Global = True
obj.Pattern = "(D\d+\s*-*(?:MAJ|REP)\d+)"
Set a = obj.Execute(c)
If a.Count > 0 Then
For i = 0 To a.Count - 1
ExtraireChaine = ExtraireChaine & a(i) & "/"
Next i
End If
ExtraireChaine = Left(ExtraireChaine, Len(ExtraireChaine) - 1)
End Function