Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static b As Boolean
If b = True Then Exit Sub
If Not Intersect(Target, Range("D:J")) Is Nothing Then
b = True
If MsgBox("Vous voulez modifier : " & Target.Address(0, 0), vbYesNo) = vbNo _
Then Range(Cells(Target.Row, 4), Cells(Target.Row, 10)).Select
b = False
End If
End Sub