Créer une macro pour supprimer une ligne

Bonjour

Dans le module classe "Classe1" modifie la macro "Private Sub Plat_Click()"

        prixunitaire = Sheets("prix").Range(cellule).Offset(0, 1).Value
        If Val(Right(Plat.Name, 3)) > 200 Then
          quantité = Menu_secondaire.TextBox2.Value
        Else
          quantité = .TextBox1.Value
        End If
        I = I + 1

Super !

Merci beaucoup