Sub Test_XlDirections()
' xlDirection Enumerations
Dim Mess$, Messs$
Mess = "xlDown = " & XlDirection.xlDown & vbCrLf
Mess = Mess & "xlUp = " & XlDirection.xlUp & vbCrLf
Mess = Mess & "xlToLeft = " & XlDirection.xlToLeft & vbCrLf
Mess = Mess & "xlToRight = " & XlDirection.xlToRight
MsgBox Mess
For i = 1 To 4
Messs = Messs & Range("A1").End(i).Address(0, 0) & " | i= " & i & vbCrLf
Next
MsgBox Messs
'ici bug
For i = 0 To 3
MsgBox Range("A1").End(i).Address & "| i= " & i
Next
End Sub