Function Client(Machaine As String) As String
Dim oRegExp As Object, Matches As Object
Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
.Pattern = "Client \d"
If .test(Machaine) = True Then
Set Matches = .Execute(Machaine)
Client = Replace(Machaine, Machaine, Matches.Item(0))
End If
End With
End Function