Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("D11:L23")) Is Nothing Then
If [D9] = "" Or [E9] = "" Or [F9] = "" Or [G9] = "" Or [H9] = "" Then
MsgBox "Veuillez déjà renseigner la zone D9:H9"
[D9].Select
End If
End If
End Sub