Sub Macro1()
Dim Colonnes(), Col As Long, k As Long, Plg As Range
Colonnes = Array("Instrument Reference", "Locked Folder", "Value Date", "Net Amount", "Quantity", "Name", "Mnemo")
With Sheets("import initial")
'Boucle sur les colonnes concernées
For k = LBound(Colonnes) To UBound(Colonnes)
Col = .Rows("1:1").Find(What:=Colonnes(k), LookAt:=xlWhole).Column
'Pour l'exemple et pour repérer les colonnes concernées
Set Plg = .Range(.Cells(2, Col), .Cells(Rows.Count, Col).End(xlUp))
Plg.Interior.ColorIndex = 22
Next k
End With
End Sub