Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim derLigne As Long
If Target.Range <> "IMPRESSION DE CETTE PAGE" Then Exit Sub
With ActiveSheet
derLigne = .Range("B" & .Rows.Count).End(xlUp).Row + 1
.PageSetup.PrintArea = "$A$43:$L$" & derLigne
.PrintOut
End With
End Sub