Plage de cellules effacé si checkbox cochée

Bonjour,

voici mon problème :

Pour remplir un tableau j'utilise un userform, les valeurs des textbox sont reportées dans 2 feuilles différentes. Les valeurs sont placées en début de tableau avec ce code :

 Sheets("Slitter").ListObjects("Tableau2").ListRows(1).Range.Insert xlShiftDown

j'ai en plus 2 checkbox qui permettent de faire un choix d'équipement.

Je souhaite qu'en fonction du choix de l'équipement, la chekbox correspondant efface le contenue de certaines cellules de la ligne qui vient d'être créée par le code précédemment cité.

j'ai essayé:

Private Sub checkbox1_click() 
If CheckBox1.Value = True Then
Sheets("Machine1").Range("K4:N4").ClearContents
End If
End Sub

le soucis c'est que ça efface que la ligne suivante.

Auriez vous une solution ?

Cordialement

PS : j'utilise excel 2016

avec le fichier, ce sera peut être plus compréhensible ...

Finalement, j'y suis parvenu tout seul comme un grand

il suffisait de mettre le code au bon endroit !