Sub Hebdo2()
'
Sheets("Base de données").Select
Cells.Select
Selection.Copy
Sheets("Hebdo").Select
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
CopierLignes
Selection.AutoFilter
Range("H5").Select
ActiveSheet.Range("$A$1:$Y$82").AutoFilter Field:=8, Criteria1:="Semaines"
ActiveSheet.Range("$A$1:$Y$82").AutoFilter Field:=10, Criteria1:="<>"
ActiveSheet.Range("$A$1:$Y$82").AutoFilter Field:=1, Operator:=xlFilterNoFill
Columns("A:A").EntireColumn.Hidden = True
Columns("D:J").EntireColumn.Hidden = True
Columns("M:M").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B62").Select
Jour
Set PlageSource = Sheets("RDV").Range("P2:P19")
With Sheets("Hebdo")
x = 1
For Each c In PlageSource
x = x + 1
While .Cells(x, 2).EntireRow.Hidden = True
x = x + 1
Wend
.Cells(x, 2) = c
Next c
End With
Sheets("Étapes").Select
End Sub