bonjour à tous, voilà, j'ai un petit problème avec cette macro à la ligne "
ActiveSheet.Paste Link:=True"
Private Sub CommandButton1_Click()
'-------------------------------------------- Copie le mois et le n° de la semaine
'-----------------------vers la feuille "synthèse", copie des données,trier puis mise en forme
'SEMAINE 1
Sheets("planning").Visible = True
ActiveWindow.SelectedSheets.Visible = False
Userform_janvier.Hide ' FAIRE DISPARAITRE L'USERFORM
Sheets("Planning").Select
ActiveSheet.Range("C3:C620").Select ' DONNEES
Selection.Copy
Sheets("synthèse").Visible = True 'ALLER A LA FEUILLE "SYNTHESE
ActiveWindow.SelectedSheets.Visible = False
ActiveSheet.Range("C3").Select
ActiveSheet.Paste Link:=True
ActiveSheet.Range("C6").Select
Application.CutCopyMode = False
ActiveSheet.Range("C6:C619").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$C$6:$C$619").AutoFilter Field:=1, Criteria1:="P"
ActiveSheet.Range("A1").Select
End Sub