Copie coller valeur selection variable

Bonjour,
Je cherche à écrire une macro me permettant de copier les valeurs de cellules (les 16 premières cellules d'une ligne : de A4 à T4 par exemple) qui contiennent des formules sur une autre feuille.
La sélection des cellules à copier est fonction de la valeur de la première cellule (en colonne A à partir de la ligne 4) qui doit être inférieure ou égale à une autre valeur stockée dans la feuille de départ (en G3).
Exemple :
Je récupère en G3 un N° de semaine : G3=S45
J'ai dans la colonne A des numéros de semaines (ex A4=S40, A5=S41, A6=S41, A7=S41, A8=S43, A9=S46)
Dans les 15 colonnes suivantes des données issues de formules dont je souhaite copier les valeurs.
Ici je voudrais donc faire cette succession de copier/coller valeur pour les lignes 4 à 8 étant donné que j'ai S43<S45 en A8 et S46>S45 en A9.
Je peux travailler avec des dates si les semaines posent problème mais je n'arrive pas à écrire un code qui marche et c'est visiblement ma commande copier /coller valeur qui pose problème dans le code.
Merci de votre aide.

Sub Macrocopiecorrecte()

i = 4
Sheets("Synthese").Select
Do While Cells(i, 1) < Cells(3, 7)
Range(Cells(i, 1), Cells(i, 20)).Select
Selection.Copy
Sheets("Synthese (2)").Select
Cells(i, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
i = i + 1
Sheets("Synthese").Select
Loop
End Sub