Sub Copie_Fichier()
Dim cell As Range
Dim NomFichier As String
Dim OFSO As Scripting.FileSystemObject
Dim OFLD As Scripting.Folder
Dim OF As Scripting.File
On Error GoTo Erreur
Set OFSO = New Scripting.FileSystemObject
Set OFLD = OFSO.GetFolder("Q:\bilans\Dossier Dep") ' A modifier par ton dossier de départ
For Each cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
NomFichier = "TE" & cell & ".dwg"
Set OF = OFLD.Files(NomFichier)
OF.Copy "Q:\bilans\Dossier Arr\", True ' A modifier par ton dossier d'arrivée
Next
Erreur:
If Err.Number = 53 Then MsgBox "Le Fichier : " & "TE" & cell & ".dwg" & " n'existe pas", , "Erreur Fichier :"
Resume Next
Set OFSO = Nothing
Set OFLD = Nothing
Set OF = Nothing
End Sub