Détection de cellules comprenant un mot

Bonjour,

J'ai un fichier contenant 2 feuilles de classeur.

Je souhaiterais, pour mes lignes de ma feuille Actuel qui contiennent "BOR" dans leur colonne D, les couper coller sur ma feuille Precedent, au dessus de le ligne contenant "GEN" en colonne B.

Lorsque je lance ma macro, cela ne fait rien. Elle me détecte bien la ligne contenant GEN en feuille Precedent (le msgbox me renvoit bien le numéro de la ligne), mais je pense qu'elle ne repère pas les lignes contenant le terme BOR dans ma feuille Actuel. Une idée ?

Merci

Sub CopierDonneesActuelVersPrecedent()
Dim LastRowA As Integer
Dim LastRowP As Integer
Dim LastP As Integer
Dim cell As Range

LastRowA = Worksheets("Actuel").Range("A65536").End(xlUp).Row
LastRowP = Worksheets("Precedent").Range("A65536").End(xlUp).Row
LastP = LastRowP + 1

For i = 2 To LastRowP
    If Worksheets("Precedent").Cells(i, 2) = "GEN" Then
        LigBOR = i
        Exit For
    End If
Next i

MsgBox LigBOR

For Each cell In Range("D5:D" & LastRowA)
    If InStr(1, "*BOR*", cell.Value, vbTextCompare) > 0 Then

        Worksheets("Precedent").Rows(LigBOR).Resize(1).Insert shift:=xlUp        'insertion de 1 ligne au dessus de la ligne LigBOR
        Worksheets("Actuel").Rows(i).Copy Destination:=Worksheets("Pb fichier").Rows(LigBOR)
        Worksheets("Actuel").Rows(i).Delete
    End If
Next

End Sub

Bonjour,

Essaie :

For Each cell In Worksheets("Actuel").Range("D5:D" & LastRowA)

Cordialement.

Bonjour,

Merci pour ta réponse.

J'ai essayé mais ça ne change rien...

Oui, pas suffisant !

Worksheets("Actuel").Rows(Cell.Row).Copy Destination:=Worksheets("Pb fichier").Rows(LigBOR)
        Worksheets("Actuel").Rows(Cell.Row).Delete

Un changement de type de boucle pas fait jusqu'au bout.