cela ne fonctionne pas, cela me renvoi erreur d'exécution '1004'
Je suis en fait partie d'un post trouvé sur le net avec des colonne fixe et des ligne variable. j'ai essayé d'adapté pour moi pour ligne fixe et colonne variable comme dans mon post précédent. comme inscrit ci-dessous ça marche (colonne fixe et ligne variable), peut être que je modifie mal, mais ne comprend pas tout
Sub Zone_Impress()
' compte les valeurs numériques en colonne B
nv = WorksheetFunction.Count(Range("B:B"))
' nombre de lignes avant les valeurs (blanc, titre ..)
nl = 2 ' à adapter
' dernière colonne de la zone d'impression
dcol = "J" ' à adapter
'dernière ligne de la zone d'impression
dl = nv + nl
'définition zone d'impression
ActiveSheet.PageSetup.PrintArea = "$A$1:$" & dcol & dl
End Sub