Function SupprDoublons(ByVal sMaVar As String) As String
Dim cNoDupes As New Collection
Dim i As Long
' *** une collection n'ajoute pas de doublon,
' il suffit d'occulter l'erreur durant le traitement
On Error Resume Next
For i = 1 To Len(sMaVar)
cNoDupes.Add Mid$(sMaVar, i, 1), Mid$(sMaVar, i, 1)
Next i
On Error GoTo 0
' buffer pour accélérer le retour
SupprDoublons = Space(cNoDupes.Count)
' retour
For i = 1 To cNoDupes.Count
Mid$(SupprDoublons, i, 1) = cNoDupes.Item(i)
Next i
Set cNoDupes = Nothing
End Function
'
'
' UTILISATION :
MsgBox SupprDoublons("11222333344444555555666666677777771234554321")