Inserer une ligne

Bonjour,

pas très féru en VBA, pourtant j'essaie …

J'ai mis au point un petit programme (qui fonctionne !)

sauf que j'ai en colonne D une liste classée par ordre alphabétique et dans cette colonne, je voudrais insérer une ligne avant la première ligne ayant comme début : R GR (r, espace, gr, espace puis choses différentes)
je ne trouve pas comment procéder.
Merci de votre aide.