Microsoft 365 Surligner les lignes si valeur d'une cellule de même valeur

Sub Copie()

'Supprime la couleur
'Range("A7:M600").Select
   ' Application.CutCopyMode = False
   ' With Selection.Interior
   '     .Pattern = xlNone
    '    .TintAndShade = 0
    '    .PatternTintAndShade = 0
  '  End With

'Copie
Sheets("Copie Formule").Select
    Range("A7:M600").Select
    Selection.Copy
    Sheets("Cockpit").Select
    Range("A7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Paste:=xlPasteFormats

 
' Bordure

    Range("A7:M600").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

  
'Tri
Range("A7:M600").Sort Range("A7"), xlAscending

'Converti colonne E, G, H
Range("E7:E600").Select
    Selection.TextToColumns , FieldInfo:=Array(1, 1)

Range("G7:G600").Select
    Selection.TextToColumns , FieldInfo:=Array(1, 1)

Range("H7:H600").Select
    Selection.TextToColumns , FieldInfo:=Array(1, 1)

'Mets la couleur

  ' Dim cel As Range
 '   Dim Couleur As Long
  '  Dim Couleur2 As Long
 '   Dim Transit As Long
  
 '   i = 0
 '   Couleur = 10213316
 '   Couleur2 = 16777215
  
  '  For i = 7 To Range("F" & Rows.Count).End(xlUp).Row
  '      If Cells(i, "F") = Cells(i - 1, "F") Then
   '         Range(Cells(i, "A"), Cells(i, "M")).Interior.Color = Couleur
   '     Else
   '        Range(Cells(i, "A"), Cells(i, "M")).Interior.Color = Couleur2
     '       Transit = Couleur
     '       Couleur = Couleur2
     '       Couleur2 = Transit
     '   End If
  '  Next
    
End Sub

    DerLig = Range("F" & Rows.Count).End(xlUp).Row
    Range(Cells(5, "A"), Cells(DerLig, "M")).Borders().Weight = xlThin