Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Font.Name = "Wingdings" Then
'on passe de coché à décoché et vice-versa
Target = IIf(Target = Chr(PasCoche), Chr(Coche), Chr(PasCoche))
Cancel = True
Select Case Target.Column
Case Range("B1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 20, "")
Case Range("D1").Column
' Colonne D - Vol
'If Target = Chr(Coche) Then MsgBox ("Aller porter plainte")
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 15, "")
Case Range("F1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 10, "")
Case Range("H1").Column
'Colonne H - Perte
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 10, "")
Case Range("K1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 20, "")
Case Range("M1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 10, "")
Case Range("O1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 5, "")
Case Range("R1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 20, "")
Case Range("T1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 20, "")
Case Range("V1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 20, "")
Case Range("X1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 20, "")
Case Range("Z1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 20, "")
Case Range("AB1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 20, "")
Case Range("AE1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), -100, "")
Case Range("AG1").Column
'Colonne AG - 100 et plus
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 20, "")
Case Range("AI1").Column
'Colonne AI - De 11 à 100
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 10, "")
Case Range("AK1").Column
'Colonne AK - De 1 à 10
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 5, "")
Case Range("AN1").Column
'Colonne AN - 100 et plus
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 20, "")
Case Range("AP1").Column
'Colonne AP - De 11 à 100
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 10, "")
Case Range("AR1").Column
'Colonne AR - De 1 à 10
Target.Offset(0, 1) = IIf(Target = Chr(Coche), 5, "")
Case Range("AU1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), -215, "")
Case Range("AW1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), -25, "")
Case Range("AY1").Column
Target.Offset(0, 1) = IIf(Target = Chr(Coche), -20, "")
End Select
End If
End Sub