Impression partielle d'une feuille par une macro

Bonjour à tous,

Une première pour moi ici.

Par une macro que j'actionnerais par un bouton, je voudrais n'imprimer que la dernière page de ce document.

J'insère régulièrement une nouvelle colonne à la 4ième avant dernière.

La dernière contient toujours en ligne 1 le texte "12 derniers".

J'imagine que la macro pourrait rechercher ce texte et sélectionner les 27 colonnes à gauche puis faire l'impression de cette sélection mais je sais pas comment faire.

Merci de m'aider.

Bonjour et bienvenue,

Je ne sais pas où mettre le bouton, tu peux lancer la macro avec les touches Ctrl+b

Sub Impress()
Dim Cl%, Rep%
'Macros par Claude Dubois pour "denis_richard" Excel-Pratique le 9 Mai 2010
    With Sheets("Résultats")
        Cl = .Cells(1, 250).End(xlToLeft).Column
        .Range(.Cells(1, Cl - 26), .Cells(40, Cl)).Name = "Zimp"
        .PageSetup.PrintArea = "Zimp"
        .PrintPreview 'aperçu

        Rep = MsgBox("On imprime ?", vbYesNo + vbCritical + vbDefaultButton2, "Impression")
        If Rep = vbYes Then
        .PrintOut Copies:=1
        End If
    End With
End Sub

J'ai réduit un peu la police ligne 1 et largeur colonnes pour que çà tienne dans la page

édit: code et fichier modifiés

Amicalement

Claude

Merci beaucoup Claude,

Ça fonctionne très bien.

Au plaisir,

Richard

C'est ici