Private Sub CheckBox3_Click()
With Sheets("Calcul_Manu") 'Avec la Feuille "Calcul_Manu"
With .Range("B46") 'avec la cellule "B46"
If Me.CheckBox3.Value = True Then 'si le CheckBox est Coché
InitDataLVw .Value 'On passe la valeur de la Cellule "B46"
Else 'Si non Coché
InitDataLVw .Value 'On passe la valeur de la Cellule "B46"
End If 'fin de Condition
End With
Me.CheckBox3.BackColor = IIf(Me.CheckBox3, &HFFFF80, &HC0FFFF) 'On colore le CheckBox en fonction de sa valeur
End With
End Sub