NomFic = ""
' Si NumF contien un identifiant
' Chercher un fichier avec cet identifiant
If NumF <> "" Then NomFic = Dir("C:\" & NumF & "*")
' Si un fichier existe avec cet identifiant unique
' On le supprime
If NomFic <> "" Then Kill "C:\" & NomFic
' On enregistre le nouveau fichier
ActiveWorkbook.SaveCopyAs "C:\" & NumF & " " & Objtclt & " " & Clt & ".xlsm"