Sub Ajout_Bordures()
Dim cell As Range
Dim Lign As Integer
For Each cell In Range("_FilterDataBase").Offset(6, 8).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible)
Lign = cell.Row
On Error Resume Next
If cell.Row > Range("F65535").End(xlUp).Row Then End
If cell.Value <> Range("_FilterDataBase").Offset(6 + Lign, 0).SpecialCells(xlCellTypeVisible).Value Then ' ***** C'est là que ca coince !!!!!
Range("A" & Lign, "BE" & Lign).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
.lignorIndex = xlAutomatic
End With
Else
Range("A" & Lign, "BE" & Lign).Select
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
End If
Next
End Sub