Sub Test()
Dim TabCommandes() As Variant
Dim TabResume() As Variant
HDL_r = Worksheets("Résumé").Range("B6")
LDL_r = Worksheets("Résumé").Range("D2")
HDL_c = Worksheets("Commandes").Range("A1")
LDL_c = Worksheets("Commandes").Range("A2")
TabResume = Array(HDL_r, LDL_r)
TabCommandes = Array(HDL_c, LDL_c)
For i = 1 To UBound(TabCommandes, 1)
TabResume(i).Value = TabCommandes(i)
Next i
End Sub