VBA supprimer un fichier... précisions

...
File = "F:\test.txt" 'Nom du fichier à supprimer .... (à adapter)
Set fs = CreateObject("Scripting.FileSystemObject")
[B][COLOR=Red]On Error Resume Next[/COLOR][/B] 'si erreur on saute la ligne suivante et f Is Nothing !
Set f = fs.GetFile(File)
If f Is Nothing Then
  MsgBox "Fichier pas trouvé"
  Exit Sub
End if
...

...................................
On Error GoTo erreur
Set f = fs.GetFile(File)
On Error GoTo 0
Rep = MsgBox("Le fichier demandé a été trouvé :" & Chr(13) & File & _
Chr(13) & Chr(13) & "Confirmez votre demande de suppression.", _
vbOKCancel, "Confirmation Delete")
If Rep = vbOK Then f.Delete
End If
erreur:
MsgBox "Fichier pas trouvé"
Exit Sub
On Error GoTo 0
End Sub