' On vérifie le nombre d'employé et on lance les requetes ADO
Sub Recup_Trame(vDir, vFile, vNombre)
Call Recup_Employe(vDir, vFile)
If vNombre = "11" Then
Call RecupDonneTemp(vDir, vFile, "F7:I373", "B10:B376")
Call RecupDonneTemp(vDir, vFile, "Y7:AB373", "H10:K376")
Call RecupDonneTemp(vDir, vFile, "AR7:AU373", "N10:Q376")
Call RecupDonneTemp(vDir, vFile, "BK7:BN373", "T10:W376")
Call RecupDonneTemp(vDir, vFile, "CD7:CG373", "Z10:AC376")
Call RecupDonneTemp(vDir, vFile, "CV7:CZ373", "AF10:AI376")
Call RecupDonneTemp(vDir, vFile, "DP7:DS373", "AL10:AO376")
Call RecupDonneTemp(vDir, vFile, "EI7:EL373", "AR10:AU376")
Call RecupDonneTemp(vDir, vFile, "FB7:FE373", "AX10:BA376")
Call RecupDonneTemp(vDir, vFile, "FU7:FX373", "BD10:BG376")
Call RecupDonneTemp(vDir, vFile, "GN7:GQ373", "B382:E748")
Sheets("Récapitulatif").Select
MsgBox ("L'importation des données a été effectuée avec succés !")
End If
End Sub