... j'aimerais automatiser l'impression d'un tableau en fonction de la valeur d'une liste.
C'est sans doute simple...
Sub a()
Dim p As Range, c As Range
Set p = Range("M3:M16")
For Each c In p
If Len(c) > 0 Then
Range("E3") = c
With ActiveSheet
.PageSetup.PrintArea = "$E$3:$I$13"
.PrintOut Copies:=1
End With
End if
Next c
End Sub
=SI($E$3=1;"Pierre";SI($E$3=2;"Jacques";""))