Sub Formules()
Dim w As Worksheet
Application.DisplayAlerts = False 'si le fichier source est introuvable
With Sheets("Janvier").[C3:I72]
For Each w In Worksheets
If IsDate("1 " & w.Name) Then
.Copy w.[C3]
w.[C3:I72].Replace "$16", "$" & 15 + Month("1 " & w.Name), xlPart
End If
Next
End With
End Sub