Bonsoir,

J'ai un programme qui s'execute à vitesse normale, des qu'il arrive au code ci-dessous, ca devient tres tres long. Je ne sais pas pourquoi, d'autant plus que ca me fait ca uniquement sur un PC.

Merci
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
With ActiveSheet.PageSetup
    If famille = "LISTING COMMANDES EN COURS" Then
        .PrintArea = "$A$3:$N$" & ii - 1
    Else: .PrintArea = "$A$3:$O$" & ii - 1
    End If
    .PrintTitleRows = "$1:$2"
    .LeftMargin = 0
    .RightMargin = 0
    .TopMargin = 0
    .BottomMargin = 1
    .HeaderMargin = 0
    .FooterMargin = 0
    .CenterHorizontally = True
    .CenterVertically = False
    .Orientation = xlLandscape
    If famille = "LISTING COMMANDES EN COURS" Then
        .Zoom = 87
    Else: .Zoom = False
    End If
    .FitToPagesWide = 1
    .FitToPagesTall = 10
    .RightFooter = "&P / &N"
End With