définir une impression suivant un nombre

Sub Definir2()
Dim derligne 'celle contenant la valeur 1
Maligne = Range("O65536").End(xlUp).Row
For i = Maligne To 1 Step -1
    If Range("O" & i).Value = 1 Then
    derligne = i
    Exit For
    End If
Next i
Range("B2:AS" & derligne).Select
ActiveSheet.PageSetup.PrintArea = "$B$2:$AS$" & derligne
End Sub

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sub Definir2()
Dim derligne
Dim Maligne
Dim i
'celle contenant la valeur 1
Maligne = Range("O65536").End(xlUp).Row
For i = Maligne To 1 Step -1
    If Range("O" & i).Value = 1 Then
    derligne = i
    GoTo fin
    Exit For
    End If
Next i
fin:
Range("D6:N" & derligne).Select
ActiveSheet.PageSetup.PrintArea = "$D$6:$N$" & derligne
' mettre ici la ligne pour imprimer
End Sub