Set PositionClasseImport = Workbooks(FichierMaintenance).Sheets("Attributes List").Rows(2).Cells.Find(what:=ClasseImport, lookat:=xlWhole)
AdresseColImport = Split(PositionClasseImport.Address, "$")(1)
Workbooks(FichierMaintenance).Sheets("Attributes List").Activate
Workbooks(FichierMaintenance).Sheets("Attributes List").Range( AdresseColImport & "2").Select
ActiveCell.offset(0, 2).Cells.Select
'Adresse de la colonne contenant la classe et nombre max de ligne
AdresseColImport = Split(ActiveCell.Address, "$")(1)