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