XL 2013 déplacer valeurs cellules dans un même classeur

DARRIEUX à dit:

Bonjour,

Je vous avez sollicités, il y a pas mal de temps et vous m'aviez parfaitement "débloqué mes problèmes.
Je reviens vers vous pour quelque chose que je ne sais pas faire : j'essaie, j'essaie et je coule !!!!! et pourtant, je sur que pour vous ce sera un jeu d'enfants.
Je vous explique :
Sue le fichier joint - colonne E Type de produit, figurent les type de dons, cotisations.... Ca c'est bon, sauf pour pour les cellules en fond orange et rouge où j'ai "don", mais je souhaiterais remplacer les valeurs concernées de la colonne H.

Je pense avoir été compréhensible dans ma demande.

PS --------> Dans la macro, prévoyez la possibilité de rajouter un jour un autre type de moyen de paiement

Je vous en remercie par avance

Je terminerai en vous disant que je suis bénévole dans une Association Humanitaire et que nous n'avons pas beaucoup de compétences en la matière

ENCORE MERCI POUR VOTRE PRÉCIEUSE AIDE

Cliquez pour agrandir...

Sub A_lancer_une_seule_fois()
    Range("E15:E38").Value = Range("H15:H38").Value
    Range("E273:E307").Value = Range("H273:H307").Value
    With Range("Tableau1[Moyen de paiement]").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
             xlBetween, Formula1:="=moyen"
    End With
End Sub

DARRIEUX à dit:

Je pense avoir été compréhensible dans ma demande.

Cliquez pour agrandir...

• en colonne E (Type de produit), une liste de choix ? (lesquels)
• en colonne F (Type de don), une liste de choix liés aux types de produit ? (lesquels)
• en colonne G (Moyen de paiement), une liste de choix ? (lesquels)