Sub Imprim_juste()
Dim Lig As Long, i As Integer
Set AImprimer = CreateObject("Scripting.Dictionary")
With Sheets("Feuil1").ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
AImprimer.Add .List(i), .List(i)
.Selected(i) = False
End If
Next i
End With
If AImprimer.Count = 0 Then MsgBox "pas de sélections": Exit Sub
temp = AImprimer.items
With Sheets("Feuil2")
.Rows("1:441").Hidden = True
For i = LBound(temp) To UBound(temp)
Lig = Application.Match(temp(i), .Range("A1:A437"), 0)
.Rows(Lig - 1 & ":" & Lig + 8).Hidden = False
Next i
.ResetAllPageBreaks
For i = 11 To 441 Step 10
If .Rows(i - 1).Hidden = False Then
.HPageBreaks.Add Before:=.Cells(i, 12)
.VPageBreaks.Add Before:=.Cells(i, 12)
End If
Next i
.PrintPreview
' .PrintOut Copies:=1
.Rows("1:441").Hidden = False
End With
End Sub