Etendre conditions aux colonnes

Bonjour,

Je suis novice et je n’ai pas trouvé réponse sur le sujet. Actuellement j’ai des mises en page de nomenclature et j’utilise une condition pour attribuer un numéro de chapitre en fonction du terme reconnu dans une cellule.

' Attribuer code GdC

Range("H2").Select

If Range("D2") Like "CHAT*" Then Range("H2") = "G00"

If Range("D2") Like "MOULIN*" Then Range("H2") = "G01"

If Range("D2") Like "AVION*" Then Range("H2") = "G06"

If Range("D2") Like "REDUCTEUR*" Then Range("H2") = "G09"

If Range("D2") Like "LIMITEUR*" Then Range("H2") = "G12"

Je voudrais l’étendre sur l’ensemble des colonnes D et H avec « derl » si possible. Merci pour votre aide.