Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns("G:G")) Is Nothing And Target.Count = 1 And Cells(Target.Row, 1) <> "" Then
Dim derlig As Long, sh As Worksheet
Set sh = Sheets("Liste relance")
Reponse = MsgBox("Commande reçue?", vbYesNo)
Range(Cells(Target.Row, 1), Cells(Target.Row, 2)).Copy _
sh.Cells(sh.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
sh.Cells(sh.Cells(Rows.Count, 1).End(xlUp).Row, 3) = Date
If Reponse = vbYes Then
sh.Cells(sh.Cells(Rows.Count, 1).End(xlUp).Row, 4) = "Oui"
Else
sh.Cells(sh.Cells(Rows.Count, 1).End(xlUp).Row, 4) = "Non"
End If
sh.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End If
Cancel = True
End Sub