Tableau avec cellules à cocher

Option Explicit


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim DerLigTab As Integer
   ' Fait quelques tests pour sortir de la proc au cas ou
  If Target.Count > 1 Then Exit Sub
   DerLigTab = Range("A" & Rows.Count).End(xlUp).Row
   ' Vérifie que le double clique est bien dans les colonnes souhaitées
  If Intersect(Range("H5:H" & DerLigTab), Target) Is Nothing Then Exit Sub
   ' Si oui on continue
  If Target.Value = "" Then
     Target.Value = "X"
     If Target.Value = "X" Then Target.Font.Size = 24
   Else
     Target.ClearContents
     Target.Font.Size = 11
   End If
   Cancel = True
 End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  If Intersect(R, [Tableau2[Remboursé ?]]) Is Nothing Then Exit Sub
  R = IIf(R = "", "•", "")
  R(1, 2).Select
End Sub