Private Sub CommandButton1_Click()
Dim ref As Range
Set ref = Range("B65536").End(xlUp)
With Sheets("Feuil2")
.Range("D3,I3,E8") = ""
.Range("D3") = ref
.Range("I3") = ref.Offset(, 1)
.Range("E8") = ref.Offset(, 3)
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
.PrintOut
End With
End Sub