Sub profile()
Cells.Select
Range("A1").Activate
Cells.EntireColumn.AutoFit
Columns("N:N").Select
Selection.Insert Shift = xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
With Sheets("Feuil1")
Range("A:C,F:G").Select
Selection.EntireColumn.Hidden = True
End With
chemin_extract = "H:\travail\macros\recherchev autre fichier"
Workbooks.Open Filename:=chemin_extract & "\extractmycrm.xlsx"
Sheets("Feuil1").Cells(2, 14) = Application.WorksheetFunction.VLookup(Sheets("Feuil1").Cells(2, 4), Workbooks("extractmycrm.xlsx").Sheets("Feuil1").Range("A:Z"), 18, False)
End Sub