Sub Macro2()
'
' Macro2 Macro
'
'
With ActiveSheet 'dans la feuille active
fin = .Range("A" & .Rows.Count).End(xlUp).Row 'on détecte le numéro de la dernière ligne du tableau
For Each cell In .Range("B2:B" & fin) 'pour chaque cellule de la colonne B
If cell.Font.Strikethrough = True Then 'si c'est barré
FinZone = cell.Row - 1 'on a trouvé la dernière ligne
Exit For
End If
Next cell
End With
ActiveSheet.PageSetup.PrintArea = Range("A2:N" & FinZone).Address 'on définit la zone d'impression
End Sub