Macro lors du chagement d'onglet

Private Sub Worksheet_Activate() 'à rattacher à l'onglet Feuil2
 
    Sheets("Feuil1").Columns("A:A").Copy Sheets("Feuil2").Range("C1")
    ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Add Key:=Range("c:c"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil2").Sort
        .SetRange Range("c:c")
        .Orientation = xlTopToBottom
        .Apply
    End With
End Sub

Private Sub Worksheet_Activate()   [B][COLOR=darkgreen]' à rattacher à l'onglet Feuil2[/COLOR][/B]
 
    Application.ScreenUpdating = False
 
    [B][COLOR=darkgreen]' Ici, le code proposé par mth (par exemple)[/COLOR][/B]
 
    [C:C].Copy Feuil1.[C1]
    [C:C].Delete
 
    With [A1].Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:="=Feuil1!C1:C" & Feuil1.[C65536].End(xlUp).Row
    End With
 
End Sub