Sub Imprimer()
Dim c1 As Range, c2 As Range, i&
With Sheets("Suivi")
Set c1 = .[J7]
.PageSetup.PrintArea = "A3:K13"
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
End With
With Sheets("Prise")
Set c2 = .[C6]
.PageSetup.PrintArea = "B2:J20"
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
End With
With Sheets("Valeurs").[A1].CurrentRegion
For i = 2 To .Rows.Count
c1 = .Cells(i, 1): c1.Parent.PrintOut 'PrintPreview 'pour tester
c2 = c1: c2.Parent.PrintOut 'PrintPreview 'pour tester
Next
End With
End Sub