bonjour, je demande un coup de pouce

voilà je chercher a copier les valeurs d'une colonne vers une autre,j'ai une macro qui me copie les valeurs mais il ne copie pas les valeur avec une formule
Donc je voudrais modifié ma macro pour qu'il puisse copier la valeur de la formule

ma macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub CopierPrix1LOTSN1()
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
Call deverrouille
 
Dim i As Integer
'Filtre utilisé
filt = Mid(Cells(6, 17).Value, 2, Len(Cells(6, 17).Value))
 
'Calcul le nbre de ligne de ton tableau
lig = Sheets("LOTS N°1").Range("A65536").End(xlUp).Row
 
For i = 31 To lig
            With Sheets("LOTS N°1")
'Copie de la valeur de V vers U
            .Cells(i, 4) = Sheets("LOTS N°1").Cells(i, 31).Value
            End With
Next i
Call verrouille
 Application.ScreenUpdating = True 'Facultatif
 Application.Calculation = xlCalculationAutomatic
End Sub

merci