Code pr éviter répétitions incompréhensibles

Bonjour à tous !
Je dois déboguer un programme réalisé avec Visual Studio 2005 en langage VB.net. Ce programme sert à réaliser des certificats d'étalonnage d'appareils et une partie du code sert à contrôler dans un tableau excel où est rentrée la liste des certificats avec leurs noms et numéros, qu'il n'existe pas deux numéros de certificats identiques. Le code est la suivant :

compteur=0
For i=4 To 14 'lignes dans lesquelles sont inscrites les numéros de certificats
mmx(compteur)=feuilexcel99.Worksheets("feuil1").range("D"&i).Value
compteur=compteur+1
Next i

compteur=11
For i=46 To 49 'lignes dans lesquelles sont inscrites les numéros de certificats
mmx(compteur)=feuilexcel99.Worksheets("feuil1").range("D"&i).Value
compteur=compteur+1
Next i

compteur=15
For i=62 To 65 'lignes dans lesquelles sont inscrites les numéros de certificats
mmx(compteur)=feuilexcel99.Worksheets("feuil1").range("D"&i).Value
compteur=compteur+1
Next i

compteur=19
For i=69 To 72 'lignes dans lesquelles sont inscrites les numéros de certificats
mmx(compteur)=feuilexcel99.Worksheets("feuil1").range("D"&i).Value
compteur=compteur+1
Next i

compteur=23
For i=79 To 79 'lignes dans lesquelles sont inscrites les numéros de certificats
mmx(compteur)=feuilexcel99.Worksheets("feuil1").range("D"&i).Value
compteur=compteur+1
Next i

mmx(27)=feuilexcel99.Worksheets("feuil1").range("D"&82).Value

Incert=False
For ft=1 To 25
For fp=ft+1 To 26
If mmx(ft)=mmx(fp) Then Incert=True
Next fp
Next ft

If incert=True Then
MsgBox ("Attention, il existe deux numéros de certificats identiques!"), MsgBoxstyle.Critical,"Pascal")
Show()
End if

Voilà, la difficulté que j'ai c'est que ce programme ce n'est pas moi qui l'ai écrit et je ne comprends pas du tout la logique du code, est-ce que quelqu'un le comprends ?
Merci de me donner un coup de pouce...

Véro