Probleme écriture code

Bonjour à tous

Faisant suite à un autre sujet qui concernait l'attribution de noms aux cellules.
Cela me posait un probléme si j'insserrait ou supprimais des lignes donc plus de noms.
mais le problème c'est que je travaille sur 10 feuilles semblables et j'avait donc attribué des noms du style G_3_4 pour la cellule G3 de la feuille 4.

Le code ci dessous fonctionnait tres bien avec le noms.


If [soustotal_ht_3].Formula = "=SUM(G10_G58_3)+(G_3_3)" Then

Range("G_3_4").Value = [soustotal_ht_3].Value
Range("G_4_4").Value = [soustotal_tva_3].Value
Range("G_5_4").Value = [soustotal_ttc_3].Value
Range("E_4_4").Value = [taux_tva].Value
ElseIf [total_ht_3].Formula = "=SUM(G10_G53_3)+(G_3_3)" Then
Range("G_3_4").Value = [total_ht_3].Value
Range("G_4_4").Value = [total_tva_3].Value
Range("G_5_4").Value = [total_ttc_3].Value
Range("E_4_4").Value = [taux_tva].Value
Else
Range("G_3_4").Value = ""
Range("G_4_4").Value = ""
Range("G_5_4").Value = ""
Range("E_4_4").Value = ""
End If
End Sub
Ce code fait donc réferrence aux feuilles 3 et 4 et à d'autres cellules nommées et contenues dans une autre feuille.
Je ne sais pas comment écrire correctement ce code sans les noms, en faisant donc réf. aux deux feuilles.
pouvez vous m'aider svp.
quelque chose dans le genre:
If sheets("feuil3").range("G60").Formula = c'est là ou je bloque le plus...

sheets("feuil4").range("G3").value=sheets("feuil3").range("G50").value
sheets("feuil4").range("G4").value=sheets("feuil3").range("G51").value
sheets("feuil4").range("G5").value=sheets("feuil3").range("G52").value

etc...

Merci