Salut à tous,
je suis débutant en vba et j'ai un probème qui ne doit en être un

Voila, je désire sélectionner et copier les lignes "i" dont la case correspondante D"i" est non vide. C'est-à-dire une sélection entière des lignes 1,4,5,.. si D1,D4,D5,... est non vide.

Alors j'ai commencé un bout avec des erreurs :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim Sel as Range, Derniere as Long, Ligne as Long
Derniere = ActiveSheet. UsedRange. Rows. Count (la deja une erreur) 
For Ligne = Derniere To 1 Step -1
If Cells(Ligne,4). Value <> "" Then
Sel = Sel & Range("Ligne:Ligne") (la je suis pas trop confiant)
End If
Next Ligne
Sel. Copy (et la der)
End Sub
Je me suis inspiré de différets programmes faits sur internet.
Merci pour vos contributions.