Macro: Si source n'existe pas - Annuler application sans faire bugger la Macro

If Dir("C:\MesDocuments\Excel\classeur2.xls") = "" Then _
    MsgBox "fichier inéxistant": Exit Sub

on error  goto Suite


.....
.....
Suite:
On Error goto 0
Next

Sub TestFichier()
Dim Fichier As String
Dim Temp As String
Fichier = ActiveWorkbook.Path & "\MonFichier.xls"
Temp = Dir(Fichier)
If Temp <> "" Then
  MsgBox Temp
Else
  MsgBox "Ce fichier n'existe pas !"
End If
End Sub

If Dir("C:\Documents and Settings\mlehello\My Documents\last chance\Collector\1006_" & Format(Date, "dd-mm-yy") & ".xls"
) <> "" Then
Workbooks.Open Filename:= _
"C:\Documents and Settings\mlehello\My Documents\last chance\Collector\1006_" & Format(Date, "dd-mm-yy") & ".xls"
Sheets("Strategic").Select
Range("A13:S32").Select
Selection.Copy
Windows("Daily Report - Resolver.xls").Activate
Sheets("Strategic").Select
Range("A13").Select
ActiveSheet.Paste
Windows("1006_" & Format(Date, "dd-mm-yy") & ".xls").Activate
end if

Sub test()
 Dim tablo As Variant
 Dim Racine As string
 Dim maLigne as integer
 maLigne = 13

'tu peux initialiser un tableau avec tes noms de fichier

tablo= Array("1006_", "1022_") ' ici tu places les 14 noms de fichier
 Racine = "C:\Documents and Settings\mlehello\My Documents\Last chance\Collector\"

'gestion de l'erreur si pas de classeur, on va à la ligne Suite
  On Error GoTo suite

For i = 0 To UBound(tablo)     ' Ne modifie pas les bornes cette fois :D
'ouverture du classeur
  Workbooks.Open Filename:=Racine & tablo(i) & Format(Date, "dd-mm-yy") & ".xls"
'copie des données  
' -------------------------ajuste le nom ou l'index de feuille

' tu devras aussi modifier le A13, sinon tu écrases les données collées
' il faut certainement que tu colles sur la première ligne disponible

  ActiveWorkbook.Sheets([B]1[/B]).Range("A13:S32").Copy workbooks("Daily Report - Resolver.xls").Sheets("Strategic").Range("A" & maLigne)

  ' incrémentation des lignes
  ' maLigne = maLigne + 21 ' j'ai laissé une ligne entre chaque tableau. Adapte
                                    ' si pas besoin, laisse cette ligne en remarque

 'fermeture du classeur si besoin
  ' ActiveWorkbook.Close
suite:
'reinitialisation des erreurs
  Err.Clear
[B]Next[/B]
   'fin de la gestion On Error Goto Suite
On Error GoTo 0
End Sub