VBA multiplication

Bonsoir, je suis novice en vba et j'aimerai faire ceci : multiplier les informations de ma colonne D avec celles de la G sur une ma feuille 8 (mensualités), et inscrire le résultat dans une nouvelle colonne (G) d'une autre feuille (feuille 3 dans mon cas)

J'ai essayé ça mais ca ne fonctionne pas du tout

Public Sub Macro2()
Sheets("Mensualités").Select
Range("G1") = "Total cotisé"

Dim cel As Range
For Each cel In Feuil3.Range("G1:G65536")
cel.Value = Feuil8.Range("D:D").Value * Feuil8.Range("G:G").Value
Next cel
End Sub

Merci pour votre aide

Bonsoir Jordan Jacob, le forum,

Un petit fichier peut-être, sans données confidentielles ?

Cordialement,

Bonsoir voici mon dossier (toutes les données sont inventées donc rien de confidentiel)

Re,

Merci pour le fichier...

Voici une tentative....

Sub test()
 With Sheets("Contrats")
  .Range("F2").Formula = "=INDEX(Mensualités!$A:$G,MATCH(Contrats!A2,Mensualités!$E:$E,0),4)*INDEX(Mensualités!$A:$G,MATCH(Contrats!A2,Mensualités!$E:$E,0),7)"
  .Range("F2").AutoFill .Range("F2:F" & .Range("A" & Rows.Count).End(xlUp).Row)
 End With
End Sub

Je cherche la correspondance du contrat en colonne D que je multiplie par la correspondance du contrat en colonne G.

J'inscris la formule en F2 et je tire ma formule jusqu'en bas,

La macro se nomme 'test': CTRL + e pour l'exécuter (elle pourra être exécutée automatiquement à l'activation de la feuille en utilisant l'évènement Worksheet_Activate).

Cordialement,