Dim PlgSel As Range, L As Long
Set PlgSel = Fxxx.[C9:C12] ' Fxxx: le CodeName de la feuille, C9:C12: un nom serait mieux
For L = 1 To PlgSel.Rows.Count
If PlgSel.Rows(L).Value = "x" Then ' ou mieux "ü": une coche en Wingdings
Rem. vos instructions d'impressions
Enf If
Next L