Copie de ligne sur une feuille + boucle

Fermé
Chris1815 Messages postés 1 Date d'inscription lundi 27 décembre 2010 Statut Membre Dernière intervention 27 décembre 2010 - 27 déc. 2010 à 18:41
Bonjour,

J'aurai besoin d'une petite aide "urgente".
Je veux recopier mes lignes d'une feuille vers une autre, sachant que chaque ligne de la feuille CDN contenant la valeur CDN en colonne A doit être recopiée sur la feuille de destination et qu'une boucle doit être faite car (a) doit ensuite être (b)
Enfin, une incrémentation dans la feuille de destination pour que mes lignes soient les unes en dessous des autres.

Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long

a = CDN
b = OBC
c = CA
d = CAFONC
e = CCS
f = CE
g = HSBC
h = CC


Sheets("Données").Activate ' feuille de destination


Col = "A" ' colonne de la donnée non vide à tester
NumLig = 1
With Workbooks("Tréso_trim1.xlsm").Worksheets("a") ' feuille source
NbrLig = .Cells(300, Col).End(xlUp).Row
For Lig = 1 To NbrLig

If .Cells(Lig, Col).Value = "a" Then
.Cells(Lig, Col).EntireRow.Copy

NumLig = NumLig + 1
Cells(NumLig, 1).Select
ActiveSheet.Paste

End If
Next
End With

End Sub