Sub imprimer()
If MsgBox("Etes-vous certain de vouloir imprimer toutes les pages?", vbYesNo, "Demande de confirmation") = vbYes Then
Dim c As Range
For Each c In Range("liste")
if c<>"" then
Range("b6").Value = c.Value
Worksheets("feuille2").PrintOut
end if
Next c
MsgBox "en cours d'impression !"
End If
End Sub