Sub InsertHeaderPicture(pws As Worksheet, pclient As String, pLocation As Long)


If pLocation = xlCenter Then
With pws.PageSetup.CenterHeaderPicture
    If pclient Like "CPG" Then
      .Filename = "Z:ADEADMINISTRATIFS ADELOGOS ET EN-TETESCARREFOURoriginal_Nvo_20logo_20CarrefourProperty_ver_RVBb.jpg"
      .Height = 225
      .Width = 417.75
    ElseIf pclient Like "SUDECO" Then
      .Filename = "Z:ADEADMINISTRATIFS ADELOGOS ET EN-TETESCASINOLogos CasinoLogo_Sudeco.png"
      .Height = 225
      .Width = 417.75
    End If

End With
pws.PageSetup.CenterHeader = "&G"
ElseIf pLocation = xlRight Then
With pws.PageSetup.RightHeaderPicture
    If pclient Like "CPG" Then
      .Filename = "Z:ADEADMINISTRATIFS ADELOGOS ET EN-TETESCARREFOURoriginal_Nvo_20logo_20CarrefourProperty_ver_RVBb.jpg"
      .Height = 90
      .Width = 170
    ElseIf pclient Like "SUDECO" Then
      .Filename = "Z:ADEADMINISTRATIFS ADELOGOS ET EN-TETESCASINOLogos CasinoLogo_Sudeco.png"
      .Height = 90
      .Width = 170
    End If

End With
pws.PageSetup.RightHeader = "&G"
   End If


End Sub