XL 2016 verifier 2 cellules et supprimer une ligne/ copier dernier ligne avec condition

* historique analyse
Dim wk_fichier As Workbook
Dim ws_panne As Worksheet
Dim ws_analyse As Worksheet
Dim lstrw_histopanne, lstrw_histoanalyse As Long
Dim ligne_coller As Long
   'definir les variables fichiers et onglets
Set wk_fichier = ActiveWorkbook
Set ws_panne = wk_fichier.Worksheets(4)
Set ws_analyse = wk_fichier.Worksheets(5)
   'identifier dernière ligne colone A sheets("historique de panne")
lstrw_histopanne = ws_panne.Cells(Rows.Count, 1).End(xlUp).Row
   'commencer la boucle sur les lignes
For i = 7 To lstrw_histopanne
       'identifier le statut et si actif,copier coller en sheets("historique analyse")
    If ws_panne.Cells(i, 8) = "oui" Then
           'identifier derniere ligne colonne A sheets("historique analyse")
        ' lstrw_histoanalyse = ws_analyse.Cells(Rows.Count, 1).End(xlUp).Row
          lstrw_histoanalyse = ws_analyse.Cells(i + 1, 1).End(xlUp).Row
         ligne_coller = lstrw_histoanalyse + 1
           'copier coller de la cellule
        ws_analyse.Cells(ligne_coller, 1) = ws_panne.Cells(i, 5)

    End If
Next

End Sub

* effacer la ligne entière
Worksheets("I.prod").Select
'effacer toute la ligne
For i = 8 To lstrw
If ActiveCell.Value <> " " Then
ActiveCell.EntireRow.Delete

End If
Next i
End Sub