Ou est l'erreur??? vba

Bonjour,

Voilà, j'expose mon problème.
Je travaille sur une feuille excel, j'ai attribuer à cette feuille un bout de macro.
Je m'explique:

Lorsque j'ecris ok dans une des cellules de la colonne G, je voudrais copier la ligne correspondante dans une autre feuille, je vous montre ce que j'ai fait:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [G2:G2000]) Is Nothing Then ' donc là je fais rien si mes cellules sont vides

Else
If Target.Value = "ok" Then

ActiveCell.Offset(-1, 0).Select ' je remonte d'une ligne car on suppose que j'ai appuyer sur entrée pour valider mon ok (j'ai pas trouvé d'autres solutions en fait :((

ActiveCell.EntireRow.Select 'je selectionne ma ligne

Selection.Copy 'je la copie ( jusqu'ici tout va bien :)

Sheets("Reglement gescles ok").Select 'je selectionne l'autre feuille ou je veux coller ma ligne
Rows("1:1").Select ' et la rien ne va plus ça marche pas
Selection.Insert Shift:=xlDown ' et là je voulais insérer ma ligne

Else
MsgBox ("ah non, ici on saisit ok ou rien!!!")

End If
End If
End Sub

Si quelqu'un a une idée????? Je désespère...

Merci