Bordures sur une sélection si plus de valeur en haut et en bas

Bonjour,
J'ai une question sur Vba, je voudrais dire dès qu'il n'y a plus de valeurs en bas et à gauche alors des bordures se mettent autour de la partie ou il y a des valeurs.
Exemple ci-dessous.

Pièce jointe 200152

En vous remerciant.

Bonjour,

à placer dans le module de la feuille souhaitée

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) Cells.Borders.LineStyle = xlNone UsedRange.Borders.LineStyle = xlThin End Sub

---

C'est pas mal du tout et si je veux prendre range.used + 2 case en haut et en bas comment je peux modifier mon code ?
J'ai essayé en mettant une variable mais logiquement ça ne marche pas...

Citation:

---

d = ActiveSheet.UsedRange
Range(d + 2, d + 2).Select

---

Bonjour,

ça m'a l'air un peu bancal, je te laisse regarder

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) Dim Lig As Long Cells.Borders.LineStyle = xlNone With UsedRange If WorksheetFunction.CountA(.Cells) = 0 Then Exit Sub Lig = WorksheetFunction.Min(.Cells(1, 1).Row, 3) .Resize(.Rows.Count + 1 + Lig, .Columns.Count).Offset(1 - Lig, 0).Borders.LineStyle = xlThin End With End Sub

---

ça ne marche pas mais je me suis arrangé avec le premier code.
Merci !