macro de recherche de données dans un autre fichier

Sub RécapGénéral()
'Feuil1 est le CodeName de l'onglet ou sera copiées les données
Dim Wb As Workbook
If MsgBox("Voulez-Vous charger les 52 récap... ", 4 + 32, "Chargement des noms") = vbNo Then Exit Sub
Application.ScreenUpdating = False
Feuil1.Cells.ClearContents 'efface les données précédentes
lig = 0
For k = 1 To 52 'boucle sur les 52
fichier = ThisWorkbook.Path & "\VQ S" & k & ".xls"
Set Wb = GetObject(fichier)
With Wb.Sheets("récapitulatif") 'attention au nom
bas = .[A2].End(xlDown).Row
Feuil1.Range("A" & lig + 1 & ":F" & bas + lig).Value = _
.Range("A1:F" & bas).Value
lig = lig + bas
End With
Wb.Close
Next
Application.ScreenUpdating = True
End Sub

Sub RécapGénéral()
'Feuil1 est le CodeName de l'onglet ou sera copiées les données

Dim Wb As Workbook
If MsgBox("Voulez-Vous charger les 52 récap... ", 4 + 32, "Chargement des noms") = vbNo Then Exit Sub
Application.ScreenUpdating = False

Range("A5:E36000") = "" 'efface les données précédentes

lig = 4 ''4 au lieu de 0
For k = 1 To 52 'boucle sur les 52

fichier = ThisWorkbook.Path & "\VQ S" & k & ".xls"
'la feuille "résumé actions non effectuées"
'doit exister dans les 52 fichiers et attention, accent et espace
Set Wb = GetObject(fichier)
With Wb.Sheets("résumé actions non effectuées") 'attention au nom

'bas = .[A5].End(xlDown).Row 'si A6 vide ca va pas plus loin
bas = .[A65536].End(xlUp).Row ' voir si colA est celle toujours remplie
Feuil1.Range("A" & lig + 1 & ":F" & bas + lig).Value = _
.Range("A5:F" & bas).Value ''ici j'ia mis A5 au lieu A1
lig = lig + bas
End With
Wb.Close
Set Wb = Nothing ''libere l'objet de la mémoire
Next

Application.ScreenUpdating = True
End Sub

Sub RécapGénéral()
'Feuil1 est le CodeName de l'onglet ou sera copiées les données
Dim Wb As Workbook
If MsgBox("Voulez-Vous charger les 52 récap... ", 4 + 32, "Chargement des noms") = vbNo Then Exit Sub
Application.ScreenUpdating = False
Range("A5:E36000") = "" 'efface les données précédentes
lig = 4
For k = 1 To 52 'boucle sur les 52
 fichier = ThisWorkbook.Path & "\VQ S" & k & ".xls"
 Set Wb = GetObject(fichier)
  With Wb.Sheets("résumé actions non effectuées") 'attention au nom
  bas = .[A65536].End(xlUp).Row ' voir si colA est celle toujours remplie
  Feuil1.Range("A" & lig + 1 & ":F" & bas + lig).Value = _
  .Range("A5:F" & bas).Value ''ici j'ia mis A5 au lieu A1
  lig = lig + bas
  End With
 Wb.Close
 Set Wb = Nothing ''libere l'objet de la mémoire
Next
For k = Feuil1.[A65536].End(3).Row To 5 Step -1
    If Not IsDate(Cells(k, 1)) Then Rows(k).Delete
Next
Application.ScreenUpdating = True
End Sub