Sub Test()
Range("A1").Select
If Not ActiveCell = "" Then
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Else
Selection.Borders(xlEdgeTop).LineStyle = xlNone
End If
End Sub
SergiO à dit:Bonsoir rgascuel,
Tu veux vraiment du VBA ?
Pourquoi pas avec une mise en forme conditionnelle :
Si la cellule est différente de " " alors mettre une bordure...
@+