selection d'une plage de cellule

[jammy17]

REBONJOUR LE FORUM

j'ai une liste comprise entre plusieures mot comme ceci:

IROISE
hsjkqjd
sjkqld

sjdklq

sop

OUESSANT
jdks
djks
dksl

TRAFIC

je voudrais faire executer a ma macro de selectionner la plage de cellule comprise entre le mot "OUESSANT" et le mot "TRAFIC", qui ne se situent pas toujours dans la meme cellule,

si quelqu'un a une idée, cela serait génial, d'avance merci
JAMMY

 

[excalibur]

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