Salut Laurent,
Tu devrais joindre un extrait de ta liste, ce serait plus facile pour te guider vers une solution.
A première vue, tu n'as pas besoin d'une macro.
Dans une colonne E, à partir de E2, tu places la formule suivante :
= SI(D3="D";A3;A2)
que tu recopies vers le bas.
Enfin, lorsque le résultat est conforme à tes espérances, tu peux conclure par copier/collage spécial "valeurs" les données de la colonne E vers la colonne A.
A+
Horatio