Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Mettre X colonne Sel
Target.Offset(0, 1) = Date
If Target.Row / 2 = Int(Target.Row / 2) Then
Target = "X"
'Target.Offset(0, 1) = Format(Date, "dd/mm/yyyy")
Target.Offset(0, 1) = Format("15/06/2017", "dd/mm/yyyy")
Target.Offset(0, 1).Select
End If
End Sub