Function SupprDoublons(ByVal sMaVar As String) As String
SupprDoublons = vbNullString
Dim i&, sChar$
For i = 1 To LenB(sMaVar) Step 2
sChar = MidB$(sMaVar, i, 2)
If InStr(1, SupprDoublons, sChar) = 0 Then SupprDoublons = SupprDoublons & sChar
Next i
End Function