Sub Affiche_Fenêtres()
'NClasseursActifs = Windows.Count
For i = 1 To Windows.Count
Windows(i).Activate
Application.WindowState = xlNormal
Application.WindowState = xlMaximized
Next
End Sub
Sub Affiche_Fenêtres_Non_masquées()
'NClasseursActifs = Windows.Count
For i = 1 To Windows.Count
If Windows(i).Visible = True Then Windows(i).Activate
'MsgBox Windows(i).Parent.Name
'MsgBox Windows(i).Visible
Application.WindowState = xlNormal
Application.WindowState = xlMaximized
Next
End Sub