bon voici mon résultat (si ca interesse ceux qui suivent ce fil)
' boucle sector 1 pour copier et coller de csv à secteur
Dim Ligne As Integer
Application.ScreenUpdating = False
lg = 1
Ligne = Sheets("csv").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
For S1 =...