supprimer et copier un batch

bonjour

J'ai un petit soussi avec cette macro.
Je souhaite copier le fichier ping.bat a la racine C:\

J'ai la proccedure suivante mais il me dit une erreur d'execution 53


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim BatFile As String

If Not Application.Intersect(Target, Range("B8")) Is Nothing Then

Shell "xcopy /Y F:\recensement\ping.bat C:\"
IP = Range("B8")
BatFile = "C:\ping.bat"
ChDir "C:\"
Open BatFile For Append Shared As #2
Print #2, "ping " & IP
Close #2
Shell "C:\ping.bat", vbMaximizedFocus
Shell "del /Y C:\ping.bat"

End If


Cordialement