Sub Juste_une_mise_au_Point(Optional Jackie_Quartz)
Dim anche_matin As Worksheet, Lig&, Col&
Lig = 1600
Col = 19
Set anche_matin = ActiveSheet
With anche_matin
Set p = .Cells(Lig, Col)
End With
MsgBox anche_matin.Cells(Lig, Col).Address(0, 1604 - Lig)
MsgBox p.Address(Col * 100 - 300, 0)
End Sub