Création macro Copiage/Collage Cellules

Sub Copier_demande()

Dim wb As Workbook
Dim i, Derligne_Ori, Derligne_Dest, Derligne_User As Integer
Dim Fichier, Utilisateur As String

'Trouve le nombre de ligne donc le nombre d'utilisateurs
Derligne_User = Sheets("utilisateurs").Range("A1").End(xlDown).Row
'Trouve à quel ligne nous sommes rendu dans le fichier de destination FICHIERFINAL dans ONGLET1
Derligne_Dest = Workbook("FichierFinal").Worksheet("Onglet1").Range("A1").End(xlDown).Row + 1

' pour chaque utilisateur
For i = 1 To Derligne_User
    ' Ici on ouvre le fichier de demande,
    ' À ADAPTER, ICI JE SUIS DANS LE NÉANT,  j'ignore ta structure, 
    ' Je suppose que dans un onglet utilisateur tu vas mettre les liens à utiliser.
    Utilisateur = Sheets("utilisateurs").Range("A" & i).Value
    Fichier = "Z:\" & Utilisateur & "\Demandes.xlsx"
    wb = Workbooks.Open(Fichier)
    
    
    'On trouve le nombre de ligne dans le fichier de demande
    Derligne_Ori = wb.Sheets("onglet2").Range("A1").End(xlDown).Row
    
    'On boucle sur chaque ligne
    For i = 1 To Derligne_Ori
        ' Ici, on cherche si la ligne doit être copié, disons qu'on utilise la colonne Z pour mettre notre flag
        If wb.Sheets("onglet2").Range("Z" & i).Value <> "X" Then
            'On entre dans la boucle si il n'y a pas de X en Z,  et on en met un maintenant.
            wb.Sheets("onglet2").Range("Z" & i).Value = "X"
            'on copie
            wb.Sheets("onglet2").Rows(i).Copy
            Workbook("FichierFinal").Worksheet("Onglet1").Rows(Derligne_Dest).PasteSpecial
            'on incrémente notre variable car on a copié une ligne
            Derligne_Dest = Derligne_Dest + 1
        End If
    Next 'ligne suivante
    
    'on a fini de copier toute les ligne d'un utilisateur, on ferme et enregistre
    wb.Close SaveChanges:=True

Next 'Utilisateur suivant

End Sub