Copier des noms en VBA

Sub Macro1()
'
    Sheets("Feuil1").Select
    Cells.Select
    Selection.Copy
    Sheets("Feuil2").Select
    Cells.Select
    ActiveSheet.Paste
    
    With Sheets("Feuil2").Activate

For a = 3 To Range("A5536").End(xlUp).Row
If Cells(a, 1) <> "Salarié : " Then
    If Cells(a, 1) <> "" And Cells(a, 1) <> "TOTAUX" Then
    Cells(a, 2) = Cells(a - 1, 2)
    End If
End If
Next a
End With
    
End Sub

Sub Macro1()
Sheets("Feuil1").Cells.Copy Sheets("Feuil2").Range("A1")
Sheets("Feuil2").Select
For a = 3 To Sheets("Feuil2").Range("A5536").End(xlUp).Row
If Cells(a, 1) <> "Salarié : " Then
    If Cells(a, 1) <> "" And Cells(a, 1) <> "TOTAUX" Then
    Cells(a, 2) = Cells(a - 1, 2)
    End If
End If
Next a
End Sub