Bonjour

J'ai un code pour récupérer le nom de l'onglet qui fonctionne très bien j'aimerais lui apporter une modification.
J'aimerais qui récupère le nom des onglets sauf un nommer "Carte"
Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 'Récupérer le nom de l'onglet
 Dim f As Worksheet
     For Each f In Worksheets
     If f.Name <> "Accueil" Then
     f.Range("K1") = f.Name
 
         With f.Range("k1")
            ' .Borders.Weight = 3
             .Font.Bold = True
             .Font.Size = 18
             .Font.Italic = True
             .Font.Name = "Arial"
         End With
         End If
     Next
Je vous remercie d'avance

Cordialement

Max