fonction de reecriture

Private Sub CommandButton1_Click()
Dim TestMois As String
Worksheets('Feuil1').Activate
For Each ligne In ActiveWorkbook.Worksheets('Feuil1').Range('A1', 'A' & ActiveWorkbook.Worksheets('Feuil1').Range('A65535').End(xlUp).Row).Rows
    Worksheets('Feuil1').Range('X' & ligne.Row).Select
    If ActiveCell.Text = 'C' Then
        ligne.EntireRow.Copy Destination:=ActiveWorkbook.Worksheets('Feuil2').Range('A65535').End(xlUp).Offset(1, 0)
    End If
Next
End Sub