J
=INDEX($BG5:$BP5;INDEX($A4:$E4;COLONNES($A:A)))
=DECALER($BF5;;A4)
Private Sub CommandButton1_Click()
MaxLigne = Range("A65536").End(xlUp).Row - 1
For t = 0 To MaxLigne
For c = 0 To 4
Range("DD5").Offset(t, c) = Range("BG5").Offset(0, Range("A4").Offset(t, c) - 1)
Next c
Next t
End Sub
Sub Macro1()
Dim f$: f = "=OFFSET(RC58,,R[-1]C[-107])" [COLOR=Green]'<- formule d'Hoerwind[/COLOR]
With Range("DD5")
.FormulaR1C1 = f: .AutoFill .Resize(, 5), xlFillDefault
.Resize(, 5).AutoFill Range("DD5:DH9"), xlFillDefault
[COLOR=Green]'Mettre en commentaires
' les 3 lignes ci-dessous si on veut garder les formules[/COLOR]
With .Resize(5, 5)
.Value = .Value
End With
End With