Sub BoucleReferences()
With Worksheets("REFERENCES")
derlgn = .Cells(10000, 1).End(xlUp).Row
dercol = .Cells(1, 20).End(xlToLeft).Column
tabreferences = .Range(.Cells(1, 1), .Cells(derlgn, dercol)).Value
For lgn = 1 To UBound(tabreferences, 1)
With Worksheets("ESPACE_WORK")
For col = 1 To UBound(tabreferences, 2)
.Cells(1, col) = tabreferences(lgn, col)
Next col
Transfert
ADDITION_COLONNES
Somme_10
End With
Next lgn
End With
End Sub