Insérer un certain nombre de lignes à un endroit variable

Bonjour;

Dans une feuille, je souhaite créer une macro qui permet d'insérer un
nombre de lignes défini dans la cellule J21 (nombre compris entre 0 et
9) à un endroit défini par les contenus de la colonne C (C5:C31)

Les cellules de la colonne C ne contiennent qu'une lettre, "F" ou "G"
Je souhaite insérer les X cellules juste au-dessous de la dernière li gne
où C contient la lettre "F".

Actuellement, je sais que pour insérer 2 lignes, je dois faire:

Rows("15:16").Select
Selection.Insert Shift:=xlDown

Merci.

Cordialement,
Pierre F.

[C:C].Find(What:="F", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Select
Selection.Offset(1, 0).Resize([J21], 1).Insert Shift:=xlDown

[C:C].Find(What:="F", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Select
Selection.Offset(1, 0).Resize([J21], 1).Insert Shift:=xlDown

[C:C].Find(What:="F", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Select
Selection.Offset(1, 0).Resize([J21], 1).Insert Shift:=xlDown

Oups...

Pardon ! quelque chose se passe!
Les contenus de la colonne C situés en-dessous du dernier "F" se
décalent de X rangs vers le bas ??

Cordialement,
Pierre F.

http://cjoint.com/?dxoMBLNBrL

http://cjoint.com/?dxoMBLNBrL

Merci;

Effectivement, les cellules situées au-dessous du dernier F se déplac ent
du rang voulu vers le bas.

Mais ce que je souhaiterais, c'est la création de X lignes vides sous le
dernier F, pas seulement dans la colonne C.

Merci.

Pierre F.

Attention!

Si les lignes insérées sont au dessus de la ligne 21, J21 va être
déplacé vers le bas:

[C:C].Find(What:="F", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Select
Selection.Offset(1, 0).Resize([J21], 1).EntireRow.Insert
Shift:=xlDown