Sauter de cases en cases

Private Sub Workbook_Open()
    Dim feuille As String, i As Integer
    feuille = ActiveSheet.Name
    col_bloque = 0
    With Sheets("bloque")
        For i = 1 To .Range("IV1").End(xlToLeft).Column
            If .Cells(1, i).Value = feuille Then col_bloque = i: Exit For
        Next
        If col_bloque > 0 Then flag_bloque = True Else flag_bloque = False
    End With
    lig_bloque = 2
    Call gw_bloque
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim feuille As String, i As Integer
    feuille = Sh.Name
    col_bloque = 0
    With Sheets("bloque")
        For i = 1 To .Range("IV1").End(xlToLeft).Column
            If .Cells(1, i).Value = feuille Then col_bloque = i: Exit For
        Next
        If col_bloque > 0 Then flag_bloque = True Else flag_bloque = False
    End With
    lig_bloque = 2
    If col_bloque > 0 Then ActiveSheet.Range(Sheets("bloque").Cells(2, col_bloque).Value).Select
    Call gw_bloque
End Sub

Public col_bloque As Integer, flag_bloque As Boolean, lig_bloque As Long

Sub gw_bloque()
    If flag_bloque = True Then
        Application.OnKey "{Enter}", "gwsuivant"
        Application.OnKey "{Right}", "gwsuivant"
        Application.OnKey "{Return}", "gwsuivant"
        Application.OnKey "{Tab}", "gwsuivant"
        Application.OnKey "{Down}", "gwsuivant"
        Application.OnKey "{Up}", "gwprecedent"
        Application.OnKey "{Left}", "gwprecedent"
        Application.OnKey "+{Tab}", "gwprecedent"
    Else
        Application.OnKey "{Enter}"
        Application.OnKey "{Return}"
        Application.OnKey "{Right}"
        Application.OnKey "{Left}"
        Application.OnKey "{Tab}"
        Application.OnKey "{Down}"
        Application.OnKey "{Up}"
        Application.OnKey "+{Tab}"
    End If
End Sub

Sub gwsuivant()
    lig_bloque = lig_bloque + 1
    If Sheets("bloque").Cells(lig_bloque, col_bloque).Value = "" Then lig_bloque = 2
    Range(Sheets("bloque").Cells(lig_bloque, col_bloque).Value).Select
End Sub

Sub gwprecedent()
    lig_bloque = lig_bloque - 1
    If lig_bloque = 1 Then lig_bloque = Sheets("bloque").Cells(65536, col_bloque).End(xlUp).Row
    Range(Sheets("bloque").Cells(lig_bloque, col_bloque).Value).Select
End Sub