Code en fonction du nb de feuille

[WDAndCo]

Bonjour le Forum

Pour effectuer une presentation automatique j'ai ce code sur une feuille qui presente les colonnes de A à M:

Private Sub Worksheet_Activate()

'A executer sur le maitre    
    Columns("A:M").EntireColumn.AutoFit
    Columns("A:M").Select
    Range("M1").Activate
    ActiveWindow.Zoom = True
    Range("B2").Select
    
'A executer sur le copier   
    'Columns("DA:DQ").Select
    'ActiveWindow.Zoom = True
    'Range("DA1").Select
    
End Sub

Puis cette feuille est copier avec le meme nom dans un nouveau fichier (jamais le meme nom) et la presentation doit etre de DA à DQ, comment rendre cela automatique.
J'ai penser au nombre de feuille car le maitre ou source en à plus cinq alors que le copier en a que deux.

Votre avis.

D'avance merci
Dominique

 

[WDAndCo]

Re : Code en fonction du nb de feuille

Re Bonjour, j'ai trouvé cela :

Private Sub Worksheet_Activate()
If Sheets.Count = 2 Then Columns("DA:DQ").Select: ActiveWindow.Zoom = True: Range("DA1").Select: Exit Sub
    Columns("A:M").EntireColumn.AutoFit
    Columns("A:M").Select
    Range("M1").Activate
    ActiveWindow.Zoom = True
    Range("B2").Select
        
End Sub

Il doit avoir quelque chose de plus académique surement.