cette partie du code ne fonctionne pas , je pense au niveau du fileFormat le syntaxe je pense est eronné si qlq un peut me le corriger svp
le fichier xlsx
'on sauvegarde le nouveau classeur sous format CSV
wbk.SaveAs Filename:=fichier, CreateBackup:=False, FileFormat:=.xlsx
Next p
wbk.Close savechanges:=False 'on ferme le nouveau classeur
.ShowAllData
End With
Application.DisplayAlerts = True
End Sub