Bonjour, je dois résoudre un problème et la solution est dans les macros

le macro en dessous me donne les selections que j'ai besoin mais copie la formule alors que je voulais seulement la copie de la valeur.

j'ai essayer:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
ActiveCell.Offset(12, 6).Resize(1).Copy Destination:=ActiveCell.Offset(6, 1).value
 
  ActiveCell.Offset(12, 6).Resize(1).Copy Destination:=ActiveCell.Offset(6, 1)
  Selection.PasteSpecial Paste:=xlPasteValues
mais ca n'a pas marche.
En plus, je voudrais que les resultats soient copies dans la feuil2, cellues B1, B2, B3, B4.
Je vous remercie d'avance pour votre aide

Le macro est:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub Macro1()
 
    ActiveCell.Offset(12, 6).Resize(1).Copy Destination:=Range("Q4")
    ActiveCell.Offset(26, 6).Resize(1).Copy Destination:=Range("R4")
    ActiveCell.Offset(40, 6).Resize(1).Copy Destination:=Range("S4")
    ActiveCell.Offset(54, 6).Resize(1).Copy Destination:=Range("T4")
 
End Sub