Toujours pour mon appli, l'idée est de créer automatiquement une nouvelle feuille tous les mois avec pour name le mois en cours, ça ok. Mon problème maintenant est de faire vérifier que cette feuille existe déjà pour éviter les redondances, c'est entre autre, là que j'ai un petit soucis, merci pour vos aides.
claphipat@wanadoo.fr

bonjour,
Tu peux utiliser la fonction WsExist (à coller dans un module standart : Module1...)

A+

A essayer
Option Explicit
 
Sub ListeFeuilles()
Dim NbFeuilles As Integer, i As Integer
Dim NouvelleFeuille As Worksheet, Feuille As Worksheet
Dim Tableau() As String
Dim Mois As String, FlagMois As Boolean
     
    FlagMois = False
    Mois = MonthName(Month(Now), False)
    Erase Tableau
    NbFeuilles = 0
    '   Lire dans un tableau les noms
    For Each Feuille In ActiveWorkbook.Sheets
        NbFeuilles = NbFeuilles + 1
        ReDim Preserve Tableau(1 To NbFeuilles)
        Tableau(NbFeuilles) = Feuille.Name
    Next
    '   Vérifier si le mois en cours s'y trouve
    For i = 1 To NbFeuilles
        If Tableau(i) = Mois Then
            FlagMois = True
            Exit For
        End If
    Next
    '   Agir en conséquence
    Select Case FlagMois
        Case True
            '........
        Case False
            Set NouvelleFeuille = ActiveWorkbook.Worksheets.Add
            NouvelleFeuille.Name = Mois
            ' ......
    End Select
End Sub
 
Sub Auto_Open()
    '........ ListeFeuilles ???
End Sub