Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim DateDébut As String, DateFin As String
Dim Cellule As Range, Fin As Range
For Each Cellule In Range("L" & Target.Row & ":IV" & Target.Row)
If Cellule.Cells.Interior.ColorIndex = 44 And DateDébut = "" Then DateDébut = CDate(Range(Split(Cellule.Cells.Address, "$")(1) & 11).Value)
If Cellule.Cells.Interior.ColorIndex = 44 And DateDébut <> "" Then DateFin = CDate(Range(Split(Cellule.Cells.Address, "$")(1) & 11).Value)
Next
Range("H" & Target.Row) = CDate(DateDébut)
Range("I" & Target.Row) = CDate(DateFin)
Cancel = True
End Sub