Sub mise_en_forme2()
For i = 1 To 31
' si le recap va de la ligne 1 à 31 et se situe en colonne A
Sheets("recap").Range("A1").Select
feuille = "='0" & i
feuille = feuille & "'!R["
feuille = feuille & 4 - i & "]"
feuille = feuille & "C[3]"
Sheets("recap").Cells(i, 1).FormulaR1C1 = feuille
Next
End Sub