Re, le forum, pierrejean,
Après essais, ça rame, avec un message "excel ne répond plus", puis ça reprend, mais c'est long...
ci-dessous la macro, pourriez-vous me dire...
Sub RemplaceFormuleParValeur()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Dim r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12, plageCopie As Range
Dim r13, r14, r15, r16, r17, r18, r19, r20, r21, r22, r23, r24, plageColle As Range
Set r1 = Sheets("RECETTES").Range("J4:AD4")
Set r2 = Sheets("RECETTES").Range("J7:AD7")
Set r3 = Sheets("RECETTES").Range("J10:AD10")
Set r4 = Sheets("RECETTES").Range("J16:AD16")
Set r5 = Sheets("RECETTES").Range("J19:AD19")
Set r6 = Sheets("RECETTES").Range("J22:AD22")
Set r7 = Sheets("RECETTES").Range("J31:AD31")
Set r8 = Sheets("RECETTES").Range("J34:AD34")
Set r9 = Sheets("RECETTES").Range("J37:AD37")
Set r10 = Sheets("RECETTES").Range("J43:AD43")
Set r11 = Sheets("RECETTES").Range("J46:AD46")
Set r12 = Sheets("RECETTES").Range("J49:AD49")
Set plageCopie = Union(r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12)
For Each cel In plageCopie
cel.Value = cel.Value
Next
Set r13 = Sheets("RECETTES").Range("J4:AD4")
Set r14 = Sheets("RECETTES").Range("J7:AD7")
Set r15 = Sheets("RECETTES").Range("J10:AD10")
Set r16 = Sheets("RECETTES").Range("J16:AD16")
Set r17 = Sheets("RECETTES").Range("J19:AD19")
Set r18 = Sheets("RECETTES").Range("J22:AD22")
Set r19 = Sheets("RECETTES").Range("J31:AD31")
Set r20 = Sheets("RECETTES").Range("J34:AD34")
Set r21 = Sheets("RECETTES").Range("J37:AD37")
Set r22 = Sheets("RECETTES").Range("J43:AD43")
Set r23 = Sheets("RECETTES").Range("J46:AD46")
Set r24 = Sheets("RECETTES").Range("J49:AD49")
Set plageColle = Union(r13, r14, r15, r16, r17, r18, r19, r20, r21, r22, r23, r24)
For Each cel In plageColle
cel.Value = cel.Value
Next
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub
Merci pour votre aide. Christian