Salut,

Je n'ai pas de moyen de tester immédiatement mais pour moi il faut utiliser sheet.count() pour récupérer le nombre et ensuite travailler sur le sheet lui-même:

i = sheet.count()

et ensuite qqc du genre name = sheet[i].name

Vise toujours la lune, dans le pire des cas tu atteindras le­s étoiles ;-)

Bonjour,

Exemple type :

Option Explicit

Sub TravailFeuille()

    Dim Feuille As Worksheet
    Dim NomFle As String
    
    NomFle = "Test"
    
    Worksheets.Add.Name = NomFle
    Sheets(NomFle).Move After:=Sheets(Worksheets.Count)
    
    For Each Feuille In Worksheets
        MsgBox Feuille.Name
    Next Feuille
    
End Sub
'

Merci beaucoup!!