selection d'une plage de cellule

Re : selection d'une plage de cellule

bonjour jammy17 , le forum un ex: a adapter
Option Explicit
Dim Ad As Range, Ad1 As Range, i As Integer, x As Integer, tablo As Variant
Private Sub CommandButton1_Click()
Set Ad = Cells.Find("OUESSANT")
Set Ad1 = Cells.Find("TRAFIC")
i = Ad.Row
x = Ad1.Row
With Controls("ListBox1")
.Clear
.ColumnCount = 6
.ColumnWidths = "100pt;100pt;100pt;100pt;100pt;100pt"
.Font.Size = 11
End With
tablo = Range("A" & i & ":F" & x)
ListBox1.List = tablo
End Sub
salutations