With Sheets("Data")
For Each cell In .Range("A2").Resize(1000000, 1).SpecialCells(xlCellTypeConstants)
ObjConseiller.Add cell.Value, cell.Offset(, 2).Value
Next cell
For Each cell In .Range("E2").Resize(1000000, 1).SpecialCells(xlCellTypeConstants)
ObjConseiller.AddFond cell.Value, cell.Offset(, 2).Value, .Range("I:I").Find(what:=cell.Offset(, 2).Value, lookat:=xlWhole).Offset(, 2)
Next cell
End With