Macro pour plusieurs cellules

Bonjour,

J'ai une macro qui, normalement, devrait copier une formule et la coller dans toutes les colonnes où il y a une cellule sélectionnée. Mon problème est que si je sélectionne plus d'une cellule, la macro ne s'effectue que pour la première plutôt que toutes les colonnes.

Voici ma macro :

Private Sub Bog()

'==========================================================================
'Coller les formules vierges dans la totalité des colonnes des cellules
'brunes sélectionnées.
'--------------------------------------------------------------------------
'ColonnePourcentageReinitialise : Cellules brunes sélectionnées pour coller les formules
' vierges.
'==========================================================================

Dim colonnePourcentageReinitialise As Range

For Each colonnePourcentageReinitialise In selection.Areas

Range(Cells(Range("HautMassesSimulation").Row, _
colonnePourcentageReinitialise.Column), _
Cells(Range("BasMassesSimulation").Row, _
colonnePourcentageReinitialise.Column)).FormulaR1C1 = _
Range(Cells(Range("HautMassesSimulation").Row, _
Range("DroiteSimulationTP").Column + 1), _
Cells(Range("BasMassesSimulation").Row, _
Range("DroiteSimulationTP").Column + 1)).FormulaR1C1

Next colonnePourcentageReinitialise

frmPourcentageReinitialise.hide

End Sub

Pouvez-vous m'aider?