Option Explicit
Sub Recup()
Dim WsSource As Worksheet, WsCible As Worksheet, Cel As Range
Set WsSource = Worksheets("Exemple")
Set WsCible = Worksheets("Résultat souhaité")
Set Cel = WsCible.Range("A" & WsCible.Range("A" & WsCible.Rows.Count).End(xlUp).Row + 1)
With WsSource.PageSetup
Cel = .LeftFooter
Cel.Offset(1, 0) = .CenterFooter
Cel.Offset(2, 0) = .RightFooter
End With
Set Cel = Nothing
Set WsSource = Nothing
Set WsCible = Nothing
End Sub