Sub Macro()

'Declarations des différentes variables

Dim Fichier As String
Fichier = "Fichier.xlsm"
   
Dim i As Integer
Dim NombreDeLigneI As Integer
NombreDeLigneI = Range("A65536").End(xlUp).Row

Dim j As Integer
Dim NombreDeLigneJ As Integer
NombreDeLigneJ = Range("A65536").End(xlUp).Row

Dim k As Integer
Dim NombreDeLigneK As Integer
NombreDeLigneK = Range("A65536").End(xlUp).Row

'Comparaison des plages contenant les clés dans feuilles 1 et 2

    'Si absence de clé dans 2

For i = 6 To NombreDeLigneI

    For j = 3 To NombreDeLigneJ
    
        If Workbooks(Fichier).Worksheets("1").Range("B" & i) <> Workbooks(Fichier).Worksheets("2").Range("G" & j) Then
       
    'Copie des infos necessaires dans la feuille 3
        
            For k = 3 To NombreDeLigneK
        
            'Info 1
                Workbooks(Fichier).Worksheets("1").Range("B" & i).Select
                Selection.Copy
                Workbooks(Fichier).Worksheets("3").Range("A" & k).Paste
                
            'Info 2
                Workbooks(Fichier).Worksheets("1").Range("A" & i).Select
                Selection.Copy
                Workbooks(Fichier).Worksheets("3").Range("B" & k).Paste
                
            'Info 3
                Workbooks(Fichier).Worksheets("1").Range("C" & i).Select
                Selection.Copy
                Workbooks(Fichier).Worksheets("3").Range("C" & k).Paste
               
            'Info 4
                Workbooks(Fichier).Worksheets("1").Range("D" & i).Select
                Selection.Copy
                Workbooks(Fichier).Worksheets("3").Range("D" & k).Paste
                
            'Info 5
                Workbooks(Fichier).Worksheets("1").Range("E" & i).Select
                Selection.Copy
                Workbooks(Fichier).Worksheets("3").Range("E" & k).Paste
                
            Next k
                
        End If
        
    Next j
                
Next i
    
End Sub