MFC sur cellules identiques d'une même colonne

Public Sub ChangerCoulSKU()

 Dim pl As Range 'déclare la variable pl
 Dim i As Integer
 Dim Derniereligne As Integer
 
 Derniereligne = Range("I100000").End(xlUp).Row
 For i = 3 To Derniereligne
 
 Worksheets("Launch Tracker").Activate
 
 'définit la variable pl(ici toutes les cellules éditées de la colonne A)
 Set pl = Worksheets("Launch Tracker").Range("I3:I" & Range("I65536").End(xlUp).Row)


 coul = 3 ' mais ce n'est qu'une histoire de goût
 
 If Cells(i, "I").Text = Cells(i + 1, "I").Text Then 'condition : si les cellules sont identiques
 Cells(i, "I").Interior.ColorIndex = coul 'colorie la cellule cel1
 Cells(i + 1, "I").Interior.ColorIndex = coul 'colorie la cellule cel2 avec la même couleur
 End If 'fin de l a condition

 Next i 'prochaine cellule de la boucle 2
 coul = coul + 1 'change de couleur
 End Sub

Public Sub ChangerCoulSKU()

 Dim pl As Range 'déclare la variable pl
 Dim i As Integer
 Dim Derniereligne As Integer
  coul = 2 'pour que la 1ere couleur utilisée soit en fait la 3
 With Worksheets("Launch Tracker") 'avec cette feuille faire les actions qui suivent et qui sont précédées d'un .
 .Activate
 Derniereligne = .Range("I10000").End(xlUp).Row ' dernire ligne remplie
 
 For i = 3 To Derniereligne  ' boucle de la ligne 3 à la dernière

 'condition : si la cellule n'est pas identique à la précédente on change de couleur
 If .Cells(i - 1, "I").Text <> .Cells(i, "I").Text Then coul = coul + 1
 
 'puis on colorie la cellule
 .Cells(i, "I").Interior.ColorIndex = coul

 Next i 'prochaine cellule de la boucle
 
 End With ' fin du With

 End Sub