Problème macro impression

Bonjour, j'essaie d'adapter se code à ma plage de cellule ("E7:K101") mais sans succès.

With Sheets("Licence")
    With .PageSetup
        .Orientation = xlLandscape  'paysage
        .CenterHorizontally = True  'centré horizontalement
        .CenterVertically = True    'centré verticalement
        .LeftMargin = Application.InchesToPoints(0)   'marge gauche
        .RightMargin = Application.InchesToPoints(0)  'marge droite
        .TopMargin = Application.InchesToPoints(0)    'marge haut
        .BottomMargin = Application.InchesToPoints(0) 'marge bas
        .Zoom = False 'pas de zoom
        .FitToPagesTall = 1 '1 page en hauteur
        .FitToPagesWide = 1 '1 page en largeur
    End With
    .PrintOut 'imprime
    End With
Sheets("Licence").Select

Merci.

.range("E7:K101").printout

Comme ça ?

Ça fonctionne, merci melch.

Au plaisir