temp = 3
Set Plage = Range("C3:C" & Derlg)
For Each cel In Plage.SpecialCells(xlCellTypeVisible)
If cel <> Cells(temp, 3) Then
With Range(Cells(temp, 1), Cells(temp, [NbCol]))
.Borders(xlEdgeBottom).LineStyle = 5
.Borders(xlEdgeBottom).Weight = 4
.Borders(xlEdgeBottom).ColorIndex = 3
End With
End If
temp = cel.Row
Next cel