Bonjour a tous ,

j'ai une macro qui me crée des pages selone quelques conditions que j'ai définie
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Set CreateSheet = ThisWorkbook.Worksheets.Add
  If SheetName <> "" Then CreateSheet.Name = SheetName
    If SheetName = "EtatBordeaux" Then
      Sheets(SheetName).Move After:=Sheets("GestionDiners")
    End If

et comme je doit imprimer ces feuilles aprés la création , je souhaiterais que ces feuiles contienent seulement une Page

ya t'il moyen de le faire avec VBA ??

Merci de votre aide