Bonjour jetted, à tous , le fil, le peuple du forum
jetted
Pourquoi pas simplement ?
Code:
Sub test()
With Range("b13")
.Offset(-8, 2) = Range("B5").Value + 6
.Value = Range("B5").Value
.AutoFill Destination:=Range("B13:B19"), Type:=xlFillDefault
End With
End Sub
Et surtout pourquoi ne pas privilégier les formules