Sub Bouton1_QuandClic()
'si la cellule active ne se trouve pas dans les colonnes 1 à 4, on sort
If ActiveCell.Column > 4 Then Exit Sub
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 4)).ClearContents 'effacer le contenu des cellules mais pas le format
'Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 4)).Clear 'effacer le contenu des cellules et le format
'Rows(ActiveCell.Row).Delete ' supprime la ligne
End Sub