Sub Test()
PourLeFun
MsgBox ActiveCell.Address(0, 0), vbExclamation
PourDeVrai
MsgBox ActiveCell.Address(0, 0), vbInformation
End Sub
Private Sub PourLeFun()
Dim Trois
Trois = 3
Cells(Rows.Count, Trois).End(Trois)(Trois - 1, 0).Select
End Sub
Private Sub PourDeVrai()
Cells(Rows.Count, 3).End(3)(2, 0).Select
End Sub