Sub Macro1()
'
Dim Feuille As Worksheet
Dim nom As String
Dim date1 As Integer
Dim montant As Single
For Each Feuille In ActiveWorkbook.Sheets
Cells(Range("settings!date1") + 7, 2).Select
ActiveCell.FormulaR1C1 = Range("settings!nom")
Cells(Range("date1") + 7, 3).Select
ActiveCell.FormulaR1C1 = Range("settings!montant")
Next Feuille
[ATTACH]291015.vB[/ATTACH][ATTACH]291016.vB[/ATTACH]End Sub