bonjour le forum

Je voudrais essayer de resoudre un probleme et merci si vous pouvez m'aider.

J'ai fait un userform avec une liste multiselection (Demandeur) provenant de la sheets("BD"),colonne I

aprés une selection de un ou plusieurs Demandeurs, Il faudrait que la ou les sheets("BD"). range ("G:W") contenant le nom du demandeur en Range(I) soit copié
vers la sheets("lievre").range("A"& .End(xlUp).

Voila ce que j ai commencé mais je crois que je me plante la multiselection me gene enfin je pense

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Validez_Click()
 
Dim DerligLI As Long, DerligBD As Long
 
Dim X As Integer, y As Integer
Dim Demandeur As Range
 
DerligLI = Sheets("Lievre").Range("A65000").End(xlUp).Row  'la premiere ligne vide de A dans feuil lievre
 
DerligBD = Sheets("BD").Range("I65536").End(xlUp).Row ' derniere ligne vide de I dans feil BD
 
With Sheets("BD") 'avec sheets BD
 
    If Demandeur <> "" Then 'si Demandeur n' est pas vide
 
       'DANS LA COLONNE i DE BD trouve la valeur demandeur selectionner dans  la listbox
        Set Demandeur = .Range("I2:I" & Derlig).Find(Demandeur)
 
        y = 15
        'Dans chaque ligne BD en I
        For X = 2 To DerligBD
            If .Range("A" & X).Value = Demandeur.Offset(o, -2).Value Then
            'copie en sheets lievre derligne libre la je suis encore plus perdu
            Copy Destination:=DerligLI
            y = y + 1
            End If
        Next X
    End If
 
End With
 
End Sub
merci pour votre aide