VBA Excel: Changer un résultat de cellule

Bonjour,

Je vous remercie pour votre réponse, mais ce n'est pas tout à fait ce que j'attendais et je réalise que je me suis mal exprimée.
Je souhaiterais que le nom des onglets soit toujours aligné mais au lieu que le premier apparaisse en E1, il apparaisse en D1.
Et de manière totalement indépendante, que dans une autre macro je puisse le faire apparaître à partir de la cellule D2.

Je vous prie de bien vouloir excuser ce malentendu et vous en remercie par avance!

Re,

avec le code que j'ai écrit: au lieu que le premier apparaisse en E1, il apparaisse en D1 ça c'est fait.

deuxième macro:

Sub Nom_feuille_D2()
    'Code pour récupérer le nom des onglets et les aligner
    Dim i As Integer
    'efface D1
    Sheets(4).Cells(1, 4).ClearContents
    'boucle de 5 a nombre d'onglet
    For i = 5 To Sheets.Count
        'onglet 4: D2---->Dx
        Sheets(4).Cells(i - 3, 4) = Sheets(i).Name
        Cells.Select
        Cells.EntireColumn.AutoFit
        Cells.EntireRow.AutoFit
    Next i
   
End Sub

Re,

Je vous remercie pour votre réponse.
Pour la première macro, j'ai du mal exprimer mon besoin car votre réponse n'a pas apporté le résultat que j'attendais. Mais elle m'a bien aider pour la trouver:

Sub Nom_feuille()
'Code pour récupérer le nom des onglets et les aligner
Dim i As Integer
    For i = 5 To Sheets.Count
    Sheets(4).Cells(1, i - 1) = Sheets(i).Name
    Cells.Select    
    Cells.EntireColumn.AutoFit    
    Cells.EntireRow.AutoFit
    Next    
   
End Sub

Je vous en remercie donc énormément!