Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lg&, lastc&
' If Not Application.Intersect(Target, Range("F" & Target.Row)) Is Nothing Then
lastc = Cells(1, Columns.Count).End(1).Column
Set plage = Range(Cells(Target.Row, 1), Cells(Target.Row, lastc))
If (Cells(Target.Row, 3) <> Cells(Target.Row - 1, 3) And Cells(Target.Row, 3) <> "") Then
plage.Borders(xlEdgeTop).Weight = xlMedium
Else
plage.Borders(xlEdgeTop).LineStyle = xlNone
plage.Borders(xlEdgeBottom).LineStyle = xlNone
'plage.Borders.LineStyle = xlNone
End If
'End If
End Sub