Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 18 Or Target <> "Oui" Then Exit Sub
Dim lig As Long
Cancel = True
lig = Target.Row
With Sheets("relance")
.[D12] = Cells(lig, "E")
.[D13] = Cells(lig, "H")
.[D14] = Cells(lig, "G")
.[D15] = Cells(lig, "F")
.[B18] = CDate(Cells(lig, "D") + 30)
.[A28] = Cells(lig, "B")
.[A34] = Cells(lig, "N")
.Activate
End With
End Sub