Sub Test()
Dim Derligne As Long
Derligne = Range("C" & Application.Rows.Count).End(xlUp).Row
For i = 2 To Derligne
If Cells(i + 1, 1).Value = Cells(i, 1).Value Then
Cells(i, 2).Borders(xlEdgeBottom).LineStyle = xlNone
Cells(i, 12).Borders(xlEdgeBottom).LineStyle = xlNone
End If
Next i
End Sub