Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MaLigne As Integer
Dim Aujourdhui As String
Aujourdhui = Format(Date, "yyyymmdd")
' Fait quelques tests pour sortir de la proc au cas ou
If Target.Count > 1 Then Exit Sub
MaLigne = ThisWorkbook.Sheets(Aujourdhui & "résumé").Range("A65535").End(xlUp).Address
MaLigne = Range(MaLigne).Row
' Vérifie que le double clique est bien dans les colonnes souhaitées
If Intersect(Range("G2:I" & MaLigne - 1), Target) Is Nothing Then Exit Sub
' Si oui on continue
If Target.Value = "" Then
Target.Value = "X"
Else
Target.ClearContents
End If
End Sub