Private Sub ToggleButton1_Click()
With ToggleButton1
If .Value = True Then
ToggleButton1.BackColor = 5950882
Test "O2:P2"
ElseIf .Value = False Then
ToggleButton1.BackColor = 12701133
'LIGNE MANQUANTE : effacer les données O2:P2 copiées dans Bx:Cx
End If
End With
End Sub