' pour imprimer le tableau il faut définir sa taille
' en termes de lignes et de colonnes à travers les
' adresses des coins supérieur et inférieur
Sub ImprimerSelection()
Dim DebSel, FinSel
'Définir la sélection à imprimer
DebSel = InputBox('Entrer la reférence (adresse) du début de ' & _
'la sélection :coin supérieur gauche ex A1 :', 'Sélection du TAbleau')
FinSel = InputBox('Entrer la reférence (adresse) de Fin de la ' & _
'sélection :coin inférieur froit ex D5 :', 'Sélection du TAbleau')
Range(DebSel, FinSel).Select
Selection.PrintOut
End Sub