Sub MEF_calendrier()
Dim i As Double
Dim datorigine As Date
Dim lWorkbook As Workbook
Dim lFound As Boolean
Dim chemin As String
Dim nbcol As Integer
Dim nblg As Integer
Dim wksCALEND As Worksheet
Application.ScreenUpdating = False
Set wksCALEND = ActiveWorkbook.Sheets("calendrier")
dateorigine = DateSerial(Sheets("calendrier").Cells(1, 2), 1, 1)
With Sheets("Calendrier").Range("F5:F15670")
.FormulaR1C1 = "=DATE(R1C2,1,INT((ROW()-5)/42))+1"
.Value = .Value
.NumberFormat = "mm/d/yyyy"
End With
With Sheets("calendrier").Range("E5:E15670")
.FormulaR1C1 = "=MANOSEM(RC[1])"
.Value = .Value
End With
Sheets("Calendrier").Range("D5:D15670").Value = "Standard"
With Sheets("Calendrier").Range("C5:C15670")
.FormulaR1C1 = "=month(RC[3])"
.Value = .Value
End With
With Sheets("Calendrier").Range("B5:B15670")
.FormulaR1C1 = "=weekday(RC[4])"
.Value = .Value
.NumberFormat = "dddd"
End With
With Sheets("Calendrier").Range("A5:A15670")
.FormulaR1C1 = "=weekday(RC[5])"
.Value = .Value
.NumberFormat = "dddd"
End With
'G PAS REGARDE LA SUITE.....
Call MEF
Call copcol
Application.ScreenUpdating = True
Set wksCALEND = Nothing
Set wksPLANNING = Nothing
End Sub