Incrémenter des doublons

Bonjour,
j'ai créé des login d'accès en combinant les 3 premières lettres du prénom et du nom des élèves de mon collège, cela donne par exemple pour Dupond Louis : duplou. S'il existe un autre élève du nom de Duprat Louanne, j'ai le même login: duplou, donc un doublon. J'ai une macro qui détecte les doublons:
-------------------------------------------------------
Sub MarqueLesDoublons()
Dim Plage As Range, i&, Cell As Range, Rng As Range

On Error Resume Next
Set Plage = Application.InputBox("Plage à examiner", Type:=8)
If IsEmpty(Plage) Then Exit Sub

Application.ScreenUpdating = False

For Each Cell In Plage
For i = 1 To Plage.Count
Set Rng = Cell.Offset(i)
If Rng <> "" And Rng = Cell Then
Cell.Interior.ColorIndex = 43
Rng.Interior.ColorIndex = 43
Exit For
End If
Next i
Next Cell

End Sub

-----------------------------------------------
cependant, le collège comporte 1300 élèves et modifier à la main chaque doublons est fastidieux.
Est-il possible de faire une macro ou de modifier celle donnée ci-dessus de manière à ce que chaque doublons trouvé soit automatiquement suivit d'un chiffre incrémenté, du genre:
duplou
duplou1
duplou2
Merci par avance !