Dim Li As Long, DerliH As Long
Dim C As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
'-----------Cherche Ligne de départ
DerliH = [H65536].End(xlUp).Row
For Each C In Range("H1:H" & DerliH) 'cherche le titre CR
If C = "CR" Then
Li = C.Row + 1
Exit For
End If
Next
'----------------------------------
If Not Intersect(Target, Range("H" & Li & ":H" & DerliH - 1)) Is Nothing Then
Target = IIf(Target = "", Target.Offset(, -1), "")
Target.Offset(, -1).Select
End If
If Not Intersect(Target, Range("I" & Li & ":I" & DerliH - 1)) Is Nothing Then
Target = IIf(Target = "", Target.Offset(, -2), "")
Target.Offset(, -2).Select
End If
End Sub