Enregistrer résultat en face dernière occurence d'un mot

Bonjour,

Voici une macro que vous m'avez aidé à définir il y'a quelques temps:

Sub Date_of_exit_RD()
nomfic = Left(ActiveWorkbook.Name, 13)
datemodif = ActiveWorkbook.BuiltinDocumentProperties.Item("Last Save Time")
nomfichsuiv = "Response time R&D.xlsm"
Workbooks.Open ("\\path\" & nomfichsuiv)
ligne = Workbooks(nomfichsuiv).Sheets("Feuil1").Columns(1).Find(nomfic).Row
Workbooks(nomfichsuiv).Sheets("Feuil1").Range("C" & ligne) = datemodif
MsgBox "Please check that the date of exit were saved"
Workbooks(nomfichsuiv).Save
Workbooks(nomfichsuiv).Close

End Sub

Elle permettait d'enregistrer la date de dernière sauvegarde d'un fichir Excel qui correspond dans mon cas à la clôture d'une affaire.

Cependant lorsque une affaire est ouverte plusieurs fois, la macro enregistre la date de la dernière sauvegarde sur la ligne de la première occurrence de l'affaire. Comment faire en sorte qu'elle l'enregistre sur la dernière occurrence?

Merci d'avance