Sub CopieLEP()
For lgLig = 9 To Range("B60").End(xlUp).Row
' Uniquement le Virement LEP
If Range("F" & lgLig).Value = "Virement sur LEP" And Not Range("I" & lgLig).Value = "P" Then
Range("I" & lgLig).Value = "P"
With Sheets("LEP")
lgDerLign = .Range("B600").End(xlUp).Row + 1
lgDerLign = IIf(IsEmpty([B10]), 10, Range("B60").End(xlUp).Row + 1)
Range("B" & lgLig).Copy .Range("B" & lgDerLign) 'Date de l'opération
Range("F" & lgLig).Copy .Range("F" & lgDerLign) 'Nature de l'opération
Range("G" & lgLig).Copy .Range("H" & lgDerLign) 'Montant de l'opération
.Range("I" & lgDerLign) = "P"
End With
End If
Next lgLig
Unload FrmTransfert
Sheets("LEP").Activate
MsgBox "la copie des Virements a été réalisée avec succès."
End Sub