Determiner une plage de cellules

bonjour a tous

comment dans le code ci joint déterminer une plage distincte ex : D3:D45 pour afficher les commentaires

        For Each cmt In ActiveSheet.Comments
            cmt.Parent = Evaluate(Replace(cmt.Text, ",", "."))
        Next cmt

car avec ce code cela m'affiche les commentaires de toute la page

ps : le code est lancer depuis un module

amicalement

Bonjour Teddy, bonjour le forum,

Peut-être comme ça :

For Each cmt In ActiveSheet.Comments
    If Not Application.Intersect(Range("D3:D45"), Range(cmt.Parent.Address)) Is Nothing Then
        cmt.Parent = Evaluate(Replace(cmt.Text, ",", "."))
    End If
Next cmt

merci ThauThème

cela fonctionne tout a fait comme je le voulais

bonne fin de journée

amicalement