Remplir cellule pour chaque cellule active

Bonjour à tous,

Dans une précédente question j'avais souhaité récupéré toutes les cellules actives pour les retrouver dans l'objet du mail:

Sub objet_mail()
    Dim plage As Range, cell As Range
    Dim objet As String
    Dim numéros As String: numéro = Empty
    Dim séparateur As String: séparateur = Empty

    For Each plage In Selection.Areas
        For Each cell In plage.Cells
            numéros = numéros & séparateur & cell
            séparateur = ","
        Next cell
    Next plage
    objet = "Suivi n° " & numéros

End Sub

Quel est la méthode pour remplir une cellule dans la colonne "J" pour chacune des cellules sélectionnées lorsque j’exécute la macro.

Si je sélectionne A1; A3 je souhaite que lorsque j’exécute cette macro les cellules J1 et J3 soient modifiées, exemple "X".

merci !

Bonjour,

essaie ainsi :

Sub objet_mail()
Dim Plage As Range, Cell As Range
Dim Objet As String
Dim Numéros As String, Séparateur As String
    For Each Plage In Selection.Areas
        For Each Cell In Plage.Cells
            Cell.Offset(, 9).Value = "X"
            Numéros = Numéros & Séparateur & Cell
            Séparateur = ","
        Next Cell
    Next Plage
    Objet = "Suivi n° " & Numéros
End Sub

Super merci ! C'est si évident en lisant le code mais je manque encore de pratique...