Sub Dynamique_FFourn()
Dim rng As Range, pvt As PivotTable
With Sheets("FFourn")
Set rng = .Range("A2:I" & .Range("B65000").End(xlUp).Row)
End With
With ActiveSheet
On Error Resume Next
.PivotTable("Lighter").Delete
On Error GoTo 0
Set pvt = .PivotTableWizard(xlDatabase, rng, Range("A3"), "Lighter")
With pvt
.AddFields RowFields:=Array("S", "CODE FOURNISSEUR", "NOM", "NUMERO FACTURE")
.PivotFields("MONTANT").Orientation = xlDataField
.PivotFields("Somme MONTANT").NumberFormat = "0.00"
End With
End With
End Sub