Sub Bordures()
Range("A1:AB" & Range("A65535").End(xlUp).Row).Select
'Modifier [U]la ligne ci-dessus [/U]pour prise en compte les colonnes supérieures à AB
appellée à évoluer
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A1<>"""""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Borders(xlLeft)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlHairline
End With
With Selection.FormatConditions(1).Borders(xlRight)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlHairline
End With
With Selection.FormatConditions(1).Borders(xlTop)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlHairline
End With
With Selection.FormatConditions(1).Borders(xlBottom)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlHairline
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub