Function Nettoyage(MaChaine As String) As String
Dim oRegExp As Object
If MaChaine = "" Then Exit Function
Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
'épurage des espaces doubles (ou plus)
.Pattern = "\s{2,}"
If .test(MaChaine) Then MaChaine = .Replace(MaChaine, " ")
'épurage d'une lettre majuscule unique placée entre deux espaces
.Pattern = "\s[A-Z]\s"
If .test(MaChaine) Then MaChaine = .Replace(MaChaine, " ")
End With
Nettoyage = Trim(MaChaine)
End Function