Code ne fonctionne plus Résolu

With ActiveSheet.PageSetup

Sub ImprimerVeterans_S()
Application.ScreenUpdating = False
Dim Ws As Worksheet
Dim MaPlage As Range
    Set Ws = Worksheets("VeteransHommes")
    Derlig = Ws.Range("W" & Ws.Rows.Count).End(xlUp).Row
    Set MaPlage = Ws.Range("T1:Z" & Derlig)
    Ws.PageSetup.PrintArea = MaPlage.Address
       '.LeftFooter = ""
       '.CenterFooter = "Ecrire ce que je veux"
'        .RightFooter = ""

    
    Ws.PrintOut Copies:=4, Collate:=True
Application.ScreenUpdating = True
Call insertionImage_EntetePage2
End Sub

Sub insertionImage_EntetePage2()
Application.ScreenUpdating = False
With ActiveSheet.PageSetup.LeftHeaderPicture 'emplacement à gauche
With ActiveSheet.PageSetup.RightHeaderPicture 'emplacement à droite
.Filename = "C:\Users\Jacky\Documents\Logo à moi.jpg"
'.Height = 40 ' redéfinit la largeur de l'image
'.Width = 80 ' redéfinit la hauteur de l'image
End With

'Remarque Il est nécessaire que « &G » fasse partie de la chaîne
'de la propriété LeftHeader afin que l'image s'affiche dans l'en-tête gauche
'info issue de l'aide en ligne Excel
ActiveSheet.PageSetup.LeftHeader = "&G" 'emplacement à gauche
ActiveSheet.PageSetup.RightHeader = "&G" 'emplacement à droite
End With
Application.ScreenUpdating = True
End Sub

.CenterFooter = "Ecrire ce que je veux"

Sub ImprimerVeterans_S()
Application.ScreenUpdating = False
Dim Ws As Worksheet
Dim MaPlage As Range
    Set Ws = Worksheets("VeteransHommes")
    Derlig = Ws.Range("W" & Ws.Rows.Count).End(xlUp).Row
    Set MaPlage = Ws.Range("T1:Z" & Derlig)
with Ws.PageSetup
.PrintArea = MaPlage.Address
       '.LeftFooter = ""
       .CenterFooter = "Ecrire ce que je veux"
'        .RightFooter = ""

end With    
    Ws.PrintOut Copies:=4, Collate:=True
Application.ScreenUpdating = True
Call insertionImage_EntetePage2
End Sub

With ActiveSheet.PageSetup.LeftHeaderPicture
.Filename = "C:\Users\Jacky\Documents\Logo Trois à moi.jpg"
.Height = 40 ' redéfinit la largeur de l'image
.Width = 80 ' redéfinit la hauteur de l'image
End With
With ActiveSheet.PageSetup.RightHeaderPicture 'emplacement à droite
.Filename = "C:\Users\Jacky\Documents\Logo Trois à moi.jpg"
.Height = 40 ' redéfinit la largeur de l'image
.Width = 80 ' redéfinit la hauteur de l'image
End With