afficher nouvelle feuille

bonjour, essaie ceci

Sub a()
Sheets('feuille 1').Select
If Range('a1') = 'a' Then

Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
Application.ActiveSheet.Name = 'a'
Else
End If


End Sub


chantal

Bonjour mesdames, le forum

une alternative à la proposition de chantal :

If Sheets('feuil1').Range('a1') = 'A' Then
        With Sheets.Add
                .Name = 'A'
        End With
End If

Cliquez pour agrandir...

salut