automatiser l'impression

A chaud comme ça je te dirais de taper une macro qui te fasse tourner les noms
calcule la feuille à chaque boucle
et lance l'impression
ce doit etre réalisable
sub imprim()
sheets("feuil_liste").select
nb=range("B1").value 'dans B1 =nbval("c:c")
for t= 1 to nb' nb nombre de personnes ds ta liste
nom$=range("C" & t).value' la list eoccupant la colonne C
sheets("feuil_données").select
range("a2").value=nom$ 'la case A2 étant le critère de recherchev(A$2$;tableau,colonne;faux)
calculate 'pour mettre à jour la feuille
Range("B107136").Select ' B107136 étant la zone à imprimer
ActiveSheet.PageSetup.PrintArea = "$B$107:$s$136"
With ActiveSheet.PageSetup
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
next t
macro non testé tu serviras de cobaye
A+
G.David