Private Sub ....Ligne de déclaration de la procédure()
Dim DerLig As Long, Sh As Worksheet
'Nom Feuille à adapter en MAJUSCULE
For Each Sh In ActiveWindows.Worksheets
Cancel = False
If UCase(Sh.Name) = "OPPORTUNITES CT" Or _
UCase(Sh.Name) = "Opportunités MT" Then
With Sh
DerLig = .Range("P:P").Find(What:="en cours", _
LookIn:=xlValues, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, MatchCase:=False).Row
.PageSetup.PrintArea = .Range("A1:R" & DerLig).Address
.PageSetup.Order = xlDownThenOver 'OU xlDownThenOver
.PrintPreview 'à remplacer par .PrintOut après tes tests
.PageSetup.PrintArea = ""
Cancel = True
End With
End If
Next
End Sub