Filtre copie

Bonsoir forum ;

j'affronte un problème dans ma macro, j'arrive pas a ecrasé l ancienne liste a l'éxecution de la macro dans les feuils 1, 2 &3, je vous transmet un extret de fichier.

merci d avance.

Salut le forum

Normal, tu ajoutes à la fin de ta feuille

dlg = Worksheets(course).Range("A65536").End(xlUp).Row + 1

Il faudrait que tu effaces, les anciennes valeurs avant de faire ton filtre.

Mytå

on remplacent

Range(Cells(i, 1), Cells(i, 7)).Delete Shift:=xlUp

par

Range(Cells(i, 1), Cells(i, 7)).Select

et ça marche