Sub Boucle()
Tab_Lettre = Array("B", "A", "C", "B", "H", "C", "K", "D", "N", "E")
For i = 1 To (UBound(Tab_Lettre, 1) + 1)
wb.Sheets(1).Range(Tab_Lettre(i) & "16:" & Tab_Lettre(i) & DLU).Copy wb.Sheets("ATTRIBUTION").Range(Tab_Lettre(i + 1) & "1:" & Tab_Lettre(i + 1) & DLU)
i = i + 1
Next
End Sub