Choix dans listBox pour imprimer

[Pierre]

Bonjour forum et vous tous,

Depuis deux jours je me casse la tête sans y arriver, même en cherchant dans les anciens fils... alors je fais un appel direct.
Voici le problème

Dans un listbox apparaît l'ensemble des feuilles d'un classeurs (sauf certaines inutiles pour la cause). On peut en sélectionnez plusieurs et lorsque l'on clique sur le bouton imprimer du UserForm, sur chaque feuile sélecionnée il va charcher des informations range ("c3") et range (m22:u22"), qu'il recopie sur une feuille nommée Tableau en testant pour voir si la cellule b7 est vide , si elle ne l'est pas alors voir si la cellule c7 est vide,(etc jusqu'à b36) pour y coller les infos.Le code que j'ai essayé de bidouiller est le suivant (mais je vous le dit tout net, il ne fonctionne pas (()


Private Sub ListBox1_Click()
Dim zone As Range
Dim cellule As Range
Dim donnees As Range
Dim nom As Range
Dim nomfeuil As String
Dim i, x As Integer
For i = 1 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
With Worksheet.Select(i)
Set nomfeuil = Sheet.Name
Worksheets.nomfeuil.Activate
Set donnees = nomfeuil.Range("m22:u22")
Set nom = nomfeuil.Range("c3")
End With
With Worksheets("Tableau")
zone = Range("b7:b36")
For Each x In zone
If x.Value Is Null Then
Me.Select
Me = nom
Me.Offset(0, 1) = donnees
Else
Me.Offset(1, 0).Select

End If
Next x
End With
End If
Next i

End If
Next i
UserForm4.Show
End Sub


Bon c'est sûr je suis novice... mais avide d'apprendre.

A vot' bon coeur M'ssieurs Dames.
Et déjà merci



Pierre