Macro pour définir zone d'impression

Bonjour tout le monde,

Quel est le code permettant de définir la zone d'impression suivante :

Lignes 1 à 43 - jusqu'à la dernière colonne non vide

Cela doit être très simple, mais je ne trouve pas le bon code, merci à vous

Bonjour

Sub Zone()
Dim Col As Byte
Col = Cells.Find("*", , xlValues, , 2, 2, 0).Column
Range("A1", Cells(43, Col)).Select
ActiveSheet.PageSetup.PrintArea = Selection
End Sub

Cordialement

Merci Amadeus pour ta réponse, mais es-tu sûr pour les lignes ?

Car j'ai du texte sous la ligne 43, et la macro me définit une zone d'impression prenant en compte tout le texte de la feuille.

Merci à toi !

Bonjour

excuse, j'ai mangé un mot à la copie

=Selection.Address

En plus court

Sub Zone()
Dim Col As Byte
Col = Cells.Find("*", , xlValues, , 2, 2, 0).Column
ActiveSheet.PageSetup.PrintArea = Range("A1", Cells(43, Col)).Address
End Sub

et en concentré

Sub Zone()
ActiveSheet.PageSetup.PrintArea = Range("A1", Cells(43, Cells.Find("*", , xlValues, , 2, 2, 0).Column)).Address
End Sub

Cordialement

Ah parfait merci beaucoup Amadéus !!