Sub rapport()
Dim DL As Long
DL = Range("A1048576").End(xlUp).Row
For i = 2 To DL
Sheets("Feuil1").Select
Range("A" & i).Select
Selection.Copy
client = Range("A" & i).Value
Sheets("Ventes Flavia 2013").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil1").Select
Range("A" & i).Select
Selection.Copy
Sheets("Ventes Flavia 2014").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.RefreshAll
Application.ScreenUpdating = False
With ThisWorkbook
.Sheets(Array("Ventes Flavia 2013", "Ventes Flavia 2014")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\david\Documents\test\" & client & " - Flavia (2013-2014).xls"
Application.DisplayAlerts = True
ActiveWorkbook.Close
End With
Next i
End Sub