Sub zoneimp()

Dim Plage As String
Dim plage2 As String
Dim place3 As String
Dim plagetot As String
Dim A As String
Dim C As String
Dim D As String
Dim E As String
Dim F As String


plage3 = "AA1:AH47"


Plage = "A1:I44"
A = 48

For I = 1 To 35

C = A - 1
D = A + 43

    
    If Sheets("Webbing - Schema").Range("I" + A) <> 0 Then
    
    Plage = Plage & "," & "A" & C & ":" & "I" & D
    
    End If
    

A = A + 46

Next

plage2 = "N1:V18"
A = 22

For I = 2 To 45
C = A - 1
D = A + 18


    If Sheets("Webbing - Schema").Range("V" + A) <> 0 Then

    plage2 = plage2 & "," & "N" & C & ":" & "V" & D
    
    Else
        
    End If


A = A + 20

Next

plagetot = Plage & "," & plage2 & "," & plage3
Sheets("Webbing - Schema").PageSetup.PrintArea = plagetot

End Sub