Sub DeplaceFeuilles()
'
' DeplaceFeuilles Macro
'
'
For i = 1 To 15
Sheets("liste VM").Select
nomVMfeuille = ActiveCell.Offset(i - 1, 0).Value
nomfichier = "G:\xx\yy\zz\01-Ventes\2013\envois\" & nomVMfeuille & ".xlsx"
Sheets(nomVMfeuille).Select
Sheets(nomVMfeuille).Move
Range("H2").Select
ActiveWindow.FreezePanes = True
ActiveWorkbook.SaveAs Filename:=nomfichier, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Next i
End Sub