Remplacement formule par macro

Bonsoir tt le monde

Voici un probleme de taille.

tout est expliqué dans le fichier joint, comme le dit le titre, je voudrais remplacer une formule complexe par une macro afin d'alleger et d'optimiser mon fichier qui est vraiment trop lourd.

Je remercie d'avance celui ou ceux qui auront la patience de comprendre la formule (enfin complexe pour moi mais peut-etre pas pour tout le monde ) et le fichier en general.

j'ai essayer de faire clair mais c'est pas facile alors si vous buttez, demandez moi des explication.

https://www.excel-pratique.com/~files/doc/formule_par_macro.xls

cordialement

Bonsoir au forum,

On ne conserve la formule que en B1, le reste est mis en Valeur

il ne faut pas de cellules fusionnées en colonne B (ton message dans la feuille gène)

Sub FormuleValeur()
''Macros par Claude Dubois pour "maguetlolo" Excel-Pratique le 4 Fév.09
Dim DerLig As Long
    DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
        Range("b1").AutoFill Destination:=Range("b1:b" & DerLig)
            With Range("b2:b" & DerLig)
                .Value = .Value
            End With
End Sub

amicalement

Claude.

Bonsoir tt le monde

C'est parfait, merci a toi

Mon classeur est donc passer de 160mo a 235ko (super)

il s'alourdit lorsque j'importe tous mes fichier texte mais bon il sert uniquement a remplir un tableau d'analyse et est fermé ensuite sans être enregistrer, donc c'est bon.

cordialement