Sub CopierLigne() Dim Lig As Long, LigCopie As Long Dim WkDonnee As Worksheet, WkCopie As Worksheet LigCopie = 2 Set WkDonne = Workbooks("Le nom calsseur donnee.xls").Sheets("Feuil1") Set WkCopie = Workbooks("Le nom calsseur de copie.xls").Sheets("Feuil1") For Lig = 3 To WkDonnee.Range("A65536").End(xlUp).Row If Cells(Lig, 1) = "*" Then 'Si sur colonne A Rows(Lig).Copy WkCopie.Rows(LigCopie) LigCopie = LigCopie + 1 End If Next Lig End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question