oui mai le probléme s quil imprime sur deux feuil avec cette macro
je cherche a faire une mise en page en vb
merci a vous
Sub Imp
With Sheets("feuil3")
If .Range("C1").Value = .Range("E4") Then
ActiveSheet.PageSetup.PrintArea = "$F$3:$H$15"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
elseIf .Range("C1").Value = .Range("J4") Then
ActiveSheet.PageSetup.PrintArea = "$j$3:$L$15"
'elseif....etc
End If
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub