Function InitPFCourant(ligne As Integer, entete As Boolean)
Windows('dossfabfusion.xls').Activate
Sheets('XL_PF').Select
Range('A' & ligne).EntireRow.Copy
If entete Then
Windows('PFCourant.xls').Activate
Sheets('Info_PF').Select
Range('A' & 1).EntireRow.PasteSpecial
Else
Windows('PFCourant.xls').Activate
Sheets('Info_PF').Select
Range('A' & 2).EntireRow.PasteSpecial
End If
ActiveWorkbook.Save
End Function