Bonjour,
une solution possible, basée sur la structure actuelle de ton classeur.
Sub imprimer_Facturation_septembre()
Sheets("Facture septembre").Activate
With Sheets("enfants+enseignants")
dl = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To dl
If .Cells(i, 1) <> "" Then
Range("C6") = .Cells(i, 1)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If
Next i
End With
End Sub
mais il aurait moyen de simplifier grandement en n'ayant qu'une seule feuille facture et en adaptant les formules pour tenir compte du mois qui serait aussi dans une liste déroulante.