Private Sub CommandButton1_Click()
'INITIALISATION
Dim i As Long ' Lignes de la colonne A
Dim j As Long ' Colonne A à Colonne P
Dim k As Long ' Lignes de la colonne O
Dim m As Single ' Changment de couleur
Application.ScreenUpdating = False
' PROGRAMME
'm = 1
For k = 3 To Cells(500, 18).End(xlUp).Row ' jusqu'à la derniére ligne non vide; .End(xlUp).Row: la ligne de la première cellule non vide en remontant depuis la dernière ligne de la colonne.
For i = 3 To Cells(500, 18).End(xlUp).Row ' Parcours des données recensées
If Cells(k, 18).Value = Cells(i, 2).Value And Cells(i, 2).Value <> "" And Cells(k, 18).Value <> "" Then 'Recherche des similitudes en évitant les cellules non vides ..
For j = 1 To 16 ' pour les colonnes de A à P de la ligne i, on colorie l'ensemble des cellules similaire à la cellule comparée
Cells(i, j).Interior.ColorIndex = 5
'm = m + 1 ' Changement de couleur
Next j
Cells(k, 18).Interior.ColorIndex = 5
End If
Next i
Next k
Application.ScreenUpdating = True
End Sub