[VBA] Probleme code avec Row( x : x)

Bonjour,
J'ai un soucis dans l'écriture de mon code, en voici une partie :

Select Case Typ
TestV = False
i = 0
Case "Etude"
MsgBox ("Etude")
'Recherche position (indice i) de l'affaire(commun)

While TestV = False
If Cells(i, 1) <> "" Then
If Cells(i, 1) > Ref Then
TestV = True
'Inser ling
ElseIf Cells(i, 1) = "Fin" Then
TestV = True
a = 0
End If
End If
i = i + 1
Wend
' il faut que j'insere en ligne i-1
'Insertion\Ecriture des lignes qui nous interesse qui dependent du type

Rows(i:i + 21).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i - 1, 1) = Ref
Sheets("type").Select
Range("A3:C12,A13:C17,A27:C31").Select
Selection.Copy
Sheets("PLAN ACTION").Select
Range("A i ").Select
ActiveSheet.Paste

Case "Chiffrage"

Voila le probleme est que dans la ligne : Rows(i:i + 21).Select
Je ne peux pas utiliser le i comme reference pour les lignes à selectionner !
Il en va de meme pour la plage : Range("A i ").Select

Comment faire pour utiliser on indice d'itération de la boucle while dans ces commandes.

Merci d'avance !