Salut,
Voilà tes réponses :
Sheets("Encours").Select
Range("A6").Select
Selection.AutoFilter Field:=8, Criteria1:="<>"
Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Histogen").Select
Range("A8").End(xlDown)(2).Select
ActiveCell.Select
ActiveSheet.Paste
ActiveCell.Offset(0, 12).Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("Encours").Select
Selection.AutoFilter
Application.CutCopyMode = False
Bon courage
A+