Bonjour à toutes & tous,
Alors si j'ai bien compris tu veux que ta macro fonctionne pour A500, puis A1000, A1500, etc...
Voila ce que j'ai fait sachant qua la macro s'arrete à 1500 !
Sub SelectionCopier()
Dim I As Integer
Application.ScreenUpdating = False
Workbooks.Open Filename:='c:basededonnées2.xls'
Windows('basededonnées2.xls').Activate
I = 500
Boucle:
For X = 1 To 65536
If Worksheets('1').Cells(X, 3) = 'achat' Then
Z = Workbooks('Logiciel suivi des coûts.xls').Worksheets('semaine1').Range('A' & I).End(xlUp).Row + 1
For Y = 1 To 16
Workbooks('Logiciel suivi des coûts.xls').Worksheets('semaine 1').Cells(Z, Y) = Worksheets('1').Cells(X, Y)
Next
End If
Next
I = I + 500
If I < 2000 Then
GoTo bloucle
End If
ActiveWorkbook.Close False
Application.ScreenUpdating = True
End Sub
++
Creepy
Ps : Si ce n'est pas ce que tu voulais, met un petit exemple en PJ pour que ce qoit plus claire !