code fonctionne incorrectement

[tigre117]

salut tous les membres mon fichier est une planification des interventions preventifs la feuille 4 est une feuille de commande
simple clique sur intervention par semaine listbox s'ouvre que contient tous les interventions par semaine
dans le listbox il y a deux boutons modifier et supprimer
mon probléme est dans le bouton modifier si je clique sur une ligne puis sur le bouton modifier le formulaire s'ouvre des elments sont affiché mais si je termine le remplissage et je clique modifier lorsque je revient à la feuil1 je trouve que le modification toujours dans le ligne 4 or je vais que le ligne que j'ai deja selectionné dans le listbox sera modifié dans la feuille1 merci de m'aider sur cette probleme en urgent
ça ce le code de bouton modifier

Private Sub CommandButton1_Click()
Set f = ThisWorkbook.Worksheets("Feuil1")
    Dim rc As Integer
    rc = Int(Val(Label9.Caption))
    If Trim(désignation.Text) = "" Or Trim(élément.Text) = "" _
            Or Trim(tachedemandé.Text) = "" Or Trim(numerointervention.Text) = "" _
            Or Trim(datedebut.Text) = "" Or Trim(dateprochaine.Text) = "" _
            Or Trim(interveneur.Text) = "" Or Trim(tempsconsomé.Text) = "" _
            Or Trim(piecederechange.Text) = "" Or Trim(quantité.Text) = "" Then
        Mess = "Veuillez saisir :" & Chr(13)
        If Trim(désignation.Text) = "" Then
            'MsgBox ("Veuillez saisir la désignation")
           Mess = Mess & "* la désignation" & Chr(13)
        End If
        If Trim(élément.Text) = "" Then
            'MsgBox ("Veuillez saisir un élément")
           Mess = Mess & "* un élément" & Chr(13)
        End If
        If Trim(tachedemandé.Text) = "" Then
            'MsgBox ("Veuillez saisir la tache demandé")
           Mess = Mess & "* la tache demandé" & Chr(13)
        End If
        If Trim(numerointervention.Text) = "" Then
            'MsgBox ("Veuillez saisir le numero intervention")
           Mess = Mess & "* le numero intervention" & Chr(13)
        End If
        If Trim(datedebut.Text) = "" Then
            'MsgBox ("Veuillez saisir la date debut")
           Mess = Mess & "* la date debut" & Chr(13)
        End If
        If Trim(dateprochaine.Text) = "" Then
            'MsgBox ("Veuillez saisir la date prochaine")
           Mess = Mess & "* la date prochaine" & Chr(13)
        End If
        If Trim(interveneur.Text) = "" Then
            'MsgBox ("Veuillez saisir interveneur")
           Mess = Mess & "* l'interveneur" & Chr(13)
        End If
        If Trim(tempsconsomé.Text) = "" Then
            'MsgBox ("Veuillez saisir le temps consomé")
           Mess = Mess & "* le temps consommé" & Chr(13)
        End If
        If Trim(piecederechange.Text) = "" Then
            'MsgBox ("Veuillez saisir le piece de rechange")
           Mess = Mess & "* la piece de rechange" & Chr(13)
        End If
        If Trim(quantité.Text) = "" Then
            'MsgBox ("Veuillez saisir la quantité")
           Mess = Mess & "* la quantité" & Chr(13)
        End If
        If Mess <> "Veuillez saisir :" & Chr(13) Then
            MsgBox Mess
            Exit Sub
        End If
Else

f.Cells(rc + 4, 2) = Trim(désignation.Text)
f.Cells(rc + 4, 3) = Trim(élément.Text)
f.Cells(rc + 4, 4) = Trim(tachedemandé.Text)
f.Cells(rc + 4, 5) = Trim(numerointervention.Text)
f.Cells(rc + 4, 6) = Trim(datedebut.Text)
f.Cells(rc + 4, 7) = Trim(dateprochaine.Text)
f.Cells(rc + 4, 8) = Trim(interveneur.Text)
f.Cells(rc + 4, 9) = Trim(tempsconsomé.Text)
f.Cells(rc + 4, 10) = Trim(piecederechange.Text)
f.Cells(rc + 4, 11) = Trim(quantité.Text)
désignation.Text = ""
élément.Text = ""
tachedemandé.Text = ""
numerointervention.Text = ""
datedebut.Text = ""
dateprochaine.Text = ""
interveneur.Text = ""
tempsconsomé.Text = ""
piecederechange.Text = ""
quantité.Text = ""

End If
UserForm1.Show (False)
Me.Hide
End Sub

 

[tigre117]

bonjour à tous pas de solution pour mon problème svp ?