Sub Macro1()
Sheets("Données").Activate
'Application.ReferenceStyle = xlA1 'ça ne sert à rien
Dim collG As Long
collG = Range("R4")
Dim collD As Long
collD = Range("R5")
Dim lignH As Long
lignH = Range("P4")
Dim lignB As Long
lignB = Range("P5")
Sheets("Plan").Activate
'Application.ReferenceStyle = xlR1C1 'ça ne sert à rien
'Range(1, 1).Select 'ça ne sert à rien et la syntaxe est erronée
'Range(lignH, collG).Select 'ça ne sert à rien et la syntaxe est erronée
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$6"
'.PrintTitleColumns = "$8:$15" 'erroné
.PrintTitleColumns = "$H:$O" 'ça c'est bon
.Orientation = xlLandscape
End With
ActiveSheet.PageSetup.PrintArea = Range(Cells(lignH, collG), Cells(lignB, collD)).Address
ActiveWindow.SelectedSheets.PrintOut
'Application.ReferenceStyle = xlA1 'ça ne sert à rien
End Sub