Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'un double-clic en colonne C fera alterner les valeurs 1 ou "rien"
If Not Intersect(Target, Range("C1:C38")) Is Nothing Then
Target = IIf(Target = "", 1, "")
End If
'un double-clic en colonne G fera alterner les valeurs 2 ou "rien"
If Not Intersect(Target, Range("G1:G38")) Is Nothing Then
Target = IIf(Target = "", 2, "")
End If
End Sub