Bonjour,
Un essai à étudier.
Cdlt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rw As Long
If Not Intersect(Target, Me.UsedRange) Is Nothing Then
If Target.Count > 1 Then Exit Sub
rw = Target.Row
If Not Cells(rw, 4) = vbNullString Then Cells(1).Select
End If
End Sub