Sub OffsetMethod()
If Not ActiveCell.Column = 256 Then
MsgBox 'Cellule de Droite ' & ActiveCell.Offset(0, 1).Address(0, 0)
End If
If Not ActiveCell.Column = 1 Then
MsgBox 'Cellule de Gauche ' & ActiveCell.Offset(0, -1).Address(0, 0)
End If
If Not ActiveCell.Row = 1 Then
MsgBox 'Cellule du Dessus ' & ActiveCell.Offset(-1, 0).Address(0, 0)
End If
If Not ActiveCell.Row = 65536 Then
MsgBox 'Cellule du Dessous ' & ActiveCell.Offset(1, 0).Address(0, 0)
End If
End Sub