Bonjour,
pour copier le contenu d'une cellule d'une feuille dans une cellule d'une autre feuille. Voici un exemple :
Sub copiedonnee()
Sheets("BMC").Range("B5").Value = Sheets("Formulaire").Range("G6").Value ' à répliquer pour chaque donnée à copier en changeant la référence aux cellules bien évidement
End Sub