Macro Excel 2011 pour piloter un choix d'impression

Sub F1_Impressions()
    Dim derlig As Long, N As Long
    
    With Worksheets("Famille 1")
        derlig = .Range("B100").End(xlUp).Row
        If derlig > 2 Then
            For N = 3 To derlig
                If .Range("B" & N) <> "" Then
                    Call Impression(.Range("A" & N), .Range("B" & N))
                End If
                .Range("B" & N) = ""
            Next N
        End If
        derlig = .Range("G100").End(xlUp).Row
        If derlig > 2 Then
            For N = 3 To derlig
                If .Range("G" & N) <> "" Then
                    Call Impression(.Range("F" & N), .Range("G" & N))
                End If
                .Range("G" & N) = ""
            Next N
        End If
        derlig = .Range("L100").End(xlUp).Row
        If derlig > 2 Then
            For N = 3 To derlig
                If .Range("L" & N) <> "" Then
                    Call Impression(.Range("K" & N), .Range("L" & N))
                End If
                .Range("L" & N) = ""
            Next N
        End If
        derlig = .Range("Q100").End(xlUp).Row
        If derlig > 2 Then
            For N = 3 To derlig
                If .Range("Q" & N) <> "" Then
                    Call Impression(.Range("P" & N), .Range("Q" & N))
                End If
                .Range("Q" & N) = ""
            Next N
        End If
        .Activate
    End With

End Sub

Sub F2_Impressions()

End Sub

Sub F3_Impressions()

End Sub

Sub Impression(Feuil As String, Qte)
    Worksheets(Feuil).PrintOut Copies:=Qte
End Sub