Private Sub Command_valider_suppression_de_ligne_Click()
Dim l As Integer
If UCase(Me.Text_code_supprimer_ligne) <> ("CSE") Or Me.Text_numero_de_ligne = "" Then GoTo fin
l = CDbl(Me.Text_numero_de_ligne.Value)
Cells(l, 1).EntireRow.Delete
fin:
Unload Me
End Sub