Problème macro : importer données de cellules

Bonjour,
J'ai un souci avec une macro que j'ai réalisé :
voici le code :
Sub Macro1()
ActiveSheet.Unprotect Password:="clapoutil"
Dim P As Worksheet 'déclare la variable P (onglet Plan d'action)
Dim R As Worksheet 'déclare la variable R (onglet Revue perf)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim TL() As Variant 'déclare la variable TL (Tableau des Lignes)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Set P = Worksheets("Plan d'action") 'définit l'onglet P
Set R = Worksheets("Revue perf") 'définit l'onglet R
TV = P.Range("A11").CurrentRegion 'définit le tableau des valeurs TV
J = 1 'initialise la variable J
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs (en partant de la seconde)
If TV(I, 8) = "Oui" Then 'condition : si la donnée ligne I colonne 8 du tableau des valeurs TV vaut "Oui"
ReDim Preserve TL(1 To J) 'redimensionne le tableau des lignes TL
TL(J) = TV(I, 7) 'récupère l'action dans la ligne J de TL
J = J + 1 'incrémente J
End If 'fin de la condition
Next I 'prochaine ligne de la boucle
For I = 1 To J - 1 'boucle sur les J-1 lignes détectées
R.Rows(33).Insert Shift:=xlDown 'insère une ligne sous la ligne 33
Next I 'prochaine ligne détectée de la boucle
R.Range("B34").Resize(UBound(TL), 1).Value = Application.Transpose(TL) 'renvoie dans B34 redimensionnée le tableau TL transposé
ActiveSheet.Protect Password:="clapoutil"
End Sub


Mon objectif est :
-en colonne G j'indique une action,
- en colonne H je détermine si le fait est marquant ou non,
- si il est marquant, les données de la colonne G sont reportées dans l'onglet revue perf qd je clic sur le bouton fait marquant.

Mon souci est que mon code bug, qqn voit-il le problème ? Merci