XL 2019 la liste des mes onglets !

Sub ListeDesOnglets()
Dim i As Integer
   Sheets("Liste").Range("A5").Select
    For i = 1 To Sheets.Count
        ActiveCell.Value = Sheets(i).Name
        ActiveCell.Offset(0, 1) = Sheets(i).Range("D9")
        ActiveCell.Offset(1, 0).Select
    Next i
End Sub

Sub ListeDesOnglets()
Dim i As Integer
'Peut être faut il aussi ajouter ceci 
Sheets("Liste").Range("A5").CurrentRegion.clearContents 
'on efface la plage pour recoller les nouvelles 'valeurs si feuilles ajoutées ou supprimées
   Sheets("Liste").Range("A5").Select
    For i = 1 To Sheets.Count
        ActiveCell.Value = Sheets(i).Name
        ActiveCell.Offset(0, 1) = Sheets(i).Range("D9")
        ActiveCell.Offset(1, 0).Select
    Next i
End Sub

Sub EffaceFeuille()
     Sheets("feuilX").Delete
 End Sub

   Ou sans demande de confirmation
  
   Sub EffaceFeuille()
  Application.DisplayAlerts = False
    Sheets("feuilX").Delete
    Application.DisplayAlerts = True
End Sub