[RESOLU] Alimenter listbox avec range

Bonjour tout le monde,

J'ai actuellement un bout de code qui fonctionne bien :

Private Sub CommandButton4_Click()
Dim sh As Worksheet, c As Range
If Trim(TextBox1) = "" Then Exit Sub

For Each sh In ThisWorkbook.Worksheets
Set c = sh.UsedRange.Find(Trim(TextBox1.Text), sh.Cells(1, 1), xlValues, xlWhole)
If Not c Is Nothing Then Me.ListBox2.AddItem sh.Range("E12").Value
Set c = Nothing

Next

End Sub


Le but est de rechercher une valeur (TextBox1) dans tout un classeur et de lister (ListBox2) les valeurs trouvées en "E12", jusque là OK ça marche.

J'aimerai pouvoir lister non pas la "E12" mais la zone "E12 à E25".
J'ai essayé diverses syntaxe, mais impossible...

Pas de fichier joint, désolé.

Merci pour votre aide.