Option Explicit
Sub Récap_Liste()
Dim i As Integer
[A1].Select
For i = 1 To Sheets.Count
ActiveCell.Value = Sheets(i).Name
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Merci beaucoup cela fonctionne parfaitementBonjour le forum
Bonjour Merlin258413
Le plus simple (inclue la feuille Recap) :
Bonne journée à toutes & à tousVB:Option Explicit Sub Récap_Liste() Dim i As Integer [A1].Select For i = 1 To Sheets.Count ActiveCell.Value = Sheets(i).Name ActiveCell.Offset(1, 0).Select Next i End Sub
@+ Eric c