Dim i As Integer
[COLOR=blue]Dim Feuille As String
[/COLOR] Dim c As Range
With ListBox2
For i = 0 To .ListCount - 1
Feuille=.List(i, 0)
msgbox [COLOR=blue]Feuille ' [/COLOR][COLOR=yellowgreen]ligne à commenter lorsque les tests seront finis[/COLOR]
if [COLOR=blue]Feuille[/COLOR]<>"" then
Set c = Sheets([COLOR=blue]Feuille[/COLOR]).Range("A65536").End(xlUp)
c = [COLOR=blue]Feuille[/COLOR]
c.Offset(, 1) = .List(i, 1)
Next i
End With