Suite à votre discussion sur votre forum j'ai réaliser le plein écran mais maintenant je n'ai plus mais onglets SVP donner moi la solution!!
voici ma formule:

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
16
17
18
19
20
21
22
23
Private Sub UserForm_WorkBook_Open()
 
 
    Dim Cmdb As CommandBar
    For Each Cmdb In Application.CommandBars
    Cmdb.Enabled = True
Next Cmdb
    With Application
        .DisplayFullScreen = True
        .DisplayStatusBar = True
        .DisplayFormulaBar = True
    End With
    Sheets("1T").Visible = True
    Sheets("1T").Activate
    Sheets("2T").Visible = False
    Sheets("3T").Visible = False
    Sheets("4T").Visible = False
    Sheets("Don").Visible = False
    Sheets("Recap").Visible = False
    Sheets("Calend").Visible = False
Load FrmFich
FrmFich.Show
End Sub