Bonsoir
Public Sub PRELEVEMENTS_AUTOMATIQUES()
Dim i As Integer
For i = Range("a65000").End(xlUp).Row To 2 Step -1
If Cells(i, 1).Value <= Range("J1").Value Then
Range(Cells(i, 1), Cells(i, 9)).Copy Destination:=Sheets("Suivi compte courant").Range("c" & Sheets("Suivi compte courant").Range("c65000").End(xlUp).Row + 1)
Range(Cells(i, 1), Cells(i, 9)).Delete
End If
Next i
End Sub
Un conseil : place tes macros dans les feuilles ou le traitement doit être réalisé ici en l'occurence c'est la feuille prélèvement, tu te simplifira grandement la tache en t'évitant de faire toujours référence à la feuille.
évite aussi les mails dans les BAL privées, je suis les posts auquels je participe.
Salut
Hervé