VBA récupérer les données dans un tableau pour exécuter une macro

Bonjour,

Je suis novice dans le VBA et j'ai besoin d'un coup de main.

Je vous joint mon fichier.

Dans mon code VBA, pour chaque agent je remets la même procédure, serait'il possible d'avoir un peu d'aide, pour chaque ligne exécuter la macro tout en récupérant les infos dans la lig

ne dédiée.

Merci d'avance.

Bonjour,

Un essai ...

Sub Mettre_en_PDF_les_FET()

    '*************************************************************************************************************************************************'
    '*************************************************************************************************************************************************'
    ' Variables
Dim chemin_fichier As String
Dim nom_PDF As String
Dim chemin_pdf As String
Dim chemin_source As String
Dim X As Integer

    '*************************************************************************************************************************************************'
    '*************************************************************************************************************************************************'
    ' Valeurs
    For X = 1 To Range("Agents").Rows.Count     ' boucle ligne 1 to dernière ligne
        chemin_source = Range("Agents[Chemin fichier excel]").Cells(X, 1).Value
        chemin_pdf = Range("Agents[Chemin PDF]").Cells(X, 1).Cells(X, 1).Value & nom_PDF

        '*************************************************************************************************************************************************'
        '*************************************************************************************************************************************************'

        ' LES AGENTS

        '*************************************************************************************************************************************************'
        '*************************************************************************************************************************************************'
        ' Agents F.HOARAU
        chemin_fichier = chemin_source & Range("Agents[Fichier]").Cells(X, 1).Value
        Application.Workbooks.Open (chemin_fichier), Password:=Range("Agents[Mdp]").Cells(X, 1).Value
        ' Nom du PDF
        nom_PDF = "Sem " & Range("C5").Value & " " & Range("C3").Value
        ' Rendre compteur invisible
        Range("F3:I5").Select
        With Selection.Font
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = 0
        End With
        ' Selection page 1 et 2
        ActiveSheet.PageSetup.PrintArea = "$A$1:$AE$39"
        ' Enregistrement format PDF
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
               chemin_pdf & nom_PDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
               IgnorePrintAreas:=False, OpenAfterPublish:=False
        ' Rendre compteur visible
        Range("F3:I5").Select
        With Selection.Font
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
        End With

        ActiveWorkbook.Close False
    Next X
    Application.Quit
End Sub

ric