Ajuster hauteur ligne pour une zone impression

Bonjour,

Une fois de plus j'ai un probleme.

Est il possible de detecter ou sont les zones d'impression d'une feuille excel dans notre code vba? Ces zones d'impression dependent aussi du format d'impression choisit par l'utilisateur...

Je cherche a ajuster la hauteur d'une ligne i-1 si la cells("i,1").value="produit". Cet ajustement doit etre fait pour que la ligne i se trouve dans la page d'impression suivante.

En gros, je cherche une sorte de code comme ca:

Dim i As Integer
For i = 1 To 1000
    If Cells(i, 1).Value = "produit" Then
        Rows("i-1:i-1").RowHeight = "ajuster la taille de la ligne "i-1" pour que la ligne "i" se trouve dans la feuille d'impression suivante"
    End If
Next

Dans l'exemple que je vous joins, j'ai ajuste a la main les cellules dont je vous parle pour que cela puisse s'imprimer correctement au format paysage.

Si vous avez une idee, je suis prenneur.

Merci

Bonjour

A tester

Ca marche encore mieux que je ne l'esperais,

Je n'aurais jamais imagine qu'une fonction permettant de "passer a la page" puisse exister sur excel...

merci.