Sub RajouterCaracteresDiscrets()
Dim VDernLigne As Long 'stockera le numero de la dernière ligne utilisée
Dim Vligne As Long 'la ligne testée
Dim VPremLigne As Long
Dim VcompteurOccurence As Long
Dim VChaine As Variant
Dim VCelluleActive As Variant
VDernLigne = Cells(1, 1).SpecialCells(xlCellTypeLastCell).Row
VPremLigne = ActiveSheet.UsedRange.Cells(1).Row
'Tester successivement chaque ligne entre la ligne 1 et la derniere
VcompteurOccurence = 1
For Vligne = VPremLigne To VDernLigne
If Cells(Vligne, 1) = Cells(Vligne + 1, 1) Then
VChaine = String(VcompteurOccurence, ".")
Cells(Vligne, 1) = Cells(Vligne, 1) & VChaine
VcompteurOccurence = VcompteurOccurence + 1
Else
VChaine = String(VcompteurOccurence + 1, ".")
Cells(Vligne, 1) = Cells(Vligne, 1) & VChaine
VcompteurOccurence = 1
End If
Next Vligne
End Sub