Macro pour importer contenu cellules d'une feuille dans bonnes colonnes

Sub import()

'---- Cherche la correspondance de class_name
For liFeuil1 = 4 To Sheets("Imported DST").Range("B65000").End(xlUp).Row
    For liFeuil2 = 2 To Sheets("TAG Codes").Range("B65000").End(xlUp).Row
        If Sheets("Imported DST").Cells(liFeuil1, 2).Value = Sheets("TAG Codes").Cells(liFeuil2, 3).Value Then
        
            '--- si X ou S, cherche la correspondance de l'entête de colonne ----
            For colFeuil1 = 3 To Sheets("Imported DST").Range("ZZ1").End(xlToLeft).Column
                If Sheets("Imported DST").Cells(liFeuil1, colFeuil1).Value = "X" Or Sheets("Imported DST").Cells(liFeuil1, colFeuil1).Value = "S" Then
                    For colFeuil2 = 8 To Sheets("TAG Codes").Range("ZZ1").End(xlToLeft).Column
                        If Sheets("Imported DST").Cells(3, colFeuil1).Value = Sheets("TAG Codes").Cells(1, colFeuil2).Value Then
                        
                            '---- Import de la valeur dans la table feuil1 ---
                            Sheets("TAG Codes").Cells(liFeuil2, colFeuil2).Value = Sheets("Imported DST").Cells(liFeuil1, colFeuil1).Value
                            End If
                        Next colFeuil2
                    End If
                Next colFeuil1
            
            End If
        Next liFeuil2
    Next liFeuil1
End Sub