non ca ne fonctionne pas je l'ai ajouté juste avant la suppression de la feuille
Sub copie_pour_mefa()
Sheets("List_Controle_APAVE").Delete
Application.DisplayAlerts = False
Sheets("Controle_APAVE").Select
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
ActiveSheet.Name = "List_Controle_APAVE"
ActiveSheet.Paste
Range("A1").Select
Selection.CurrentRegion.Select
ActiveWorkbook.Names.Add Name:="Liste_maj_apave", RefersToR1C1:= _
"=List_Controle_APAVE!R1C1:R22C7"
End Sub