Coller les formules d'un classeur

Bonjour

débutante en macro, j'utilise le fichier en PJ "ca015" trouvé sur ce forum qui dispatche le classeur selon le nom du client.

je voudrais qu'en dispatchant, les formules ne soient pas figés en colonne M et O. j'ai utilisé la formule ci-dessous en vain.

PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

pouvez-vous m'aider svp? Merci d'avance

Bonjour Cycy

Je suis for étonné quand vous parlez de "débutante" ou alors, ou avec vous eu le code suivant
Qui est tout sauf pour débutant...

Option Explicit
Public critere%

Sub dispatcher()
  Dim Tbl As Variant, data As Variant, i%
  Dim dico1 As Object, cle1 As Variant, result1 As Variant
  Dim wb As Excel.Workbook
  Dim MonRepertoire, Repertoire As FileDialog, racine As String
  Dim colonne$

  'colonne = Application.InputBox("Entrez la colonne servant de critère de dispatching : ", "Saisie en texte (i.e : A B ...)", Type:=2)
  'critere = ActiveSheet.Columns(colonne).Column
  UserForm1.Show
  If critere = 0 Then Exit Sub

  racine = Split(ThisWorkbook.Name, ".")(0)

  Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
  Application.FileDialog(msoFileDialogFolderPicker).Title = "Choix du répertoire de stockage des fichiers générés"
  Repertoire.Show
  If Repertoire.SelectedItems.Count = 0 Then Exit Sub
  MonRepertoire = Repertoire.SelectedItems(1)

  data = Cells(Rows.Count, 1).End(xlUp).CurrentRegion

  Set dico1 = CreateObject("Scripting.Dictionary")
  For i = LBound(data) + 1 To UBound(data) ' hors en-tête
    dico1(data(i, critere)) = ""
  Next

  Application.ScreenUpdating = False
  For Each cle1 In dico1.Keys
    result1 = filtreArray(data, critere, cle1)
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "Model.xlsx")
    wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(UBound(result1, 1), UBound(result1, 2)) = result1
    wb.SaveAs (MonRepertoire & "\" & racine & "_" & cle1 & ".xlsx")
    wb.Close
    Set wb = Nothing
  Next
  Application.ScreenUpdating = True

  MsgBox "Terminé, fichiers sauvegardés sous """ & MonRepertoire & "\" & """ !"
End Sub

Feriez-vous du cross posting par hasard ?

A+