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