XL 2010 Envoyer des lignes vers un autre onglet

Sub Macro1()
Dim PAC As Worksheet 'déclare la variable PAC (onglet Plan d'action et chemin)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set PAC = Worksheets("Plan d'action et chemin") 'définit l'onglet PAC
TV = PAC.Range("A6").CurrentRegion 'définit le tableau des valeur TV
For I = UBound(TV, 1) To 2 Step -1 'boucle inversée sur toutes les lignes I du tableau des valeurs (de la dernière à la ligne 2)
    If TV(I, 8) <> "" Then 'condition : si la donnée ligne I colonne 8 (=> colonne H) de TV n'est pas vide
        Set OD = Worksheets(TV(I, 8)) 'définit l'onglet de destination OD
        Set DEST = OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
        PAC.Rows(I + 5).Copy DEST 'copie la ligne I + 5  et la colle dans DEST
        PAC.Rows(I + 5).Delete 'supprime la ligne I + 5
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub

Sub Macro1()
Dim R As Range 'déclare la variable R (Recherche)
Dim PLT As Integer 'déclare la variable PLT (Première Ligne du Tableau)
Dim PAC As Worksheet 'déclare la variable PAC (onglet Plan d'action et chemin)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set PAC = Worksheets("Plan d'action et chemin") 'définit l'onglet PAC
'définit la recherche R (recherche la valeur exacte de "Réalisation N" dans la colonne 8 (= H) de l'onglet PAC)
Set R = PAC.Columns(8).Find("Réalisation N", , xlValues, xlWhole).Row 'Attention ! Dans ton exemple c'est "Réalisé N" au lieu de "Réalisation N", à adapter...
If R Is Nothing Then Exit Sub 'si aucune occurrence n'est trouvée, sort de a procédure
PLT = R.Row 'définit la première ligne du tableau PLT
TV = PAC.Cells(PLT, "A").CurrentRegion 'définit le tableau des valeurs TV
For I = UBound(TV, 1) To 2 Step -1 'boucle inversée sur toutes les lignes I du tableau des valeurs (de la dernière à la ligne 2)
    If TV(I, 8) <> "" Then 'condition : si la donnée ligne I colonne 8 (=> colonne H) de TV n'est pas vide
        Set OD = Worksheets(TV(I, 8)) 'définit l'onglet de destination OD
        Set DEST = OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
        PAC.Rows(I + (PLT - 1)).Copy DEST 'copie la ligne I + (PLT-1)  et la colle dans DEST
        PAC.Rows(I + (PLT - 1)).Delete 'supprime la ligne I + (PLT-1)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub