Blocage

Sub Actualisation()

Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("5 - Bilan Financier").Activate
Col = "A"
NumLig = 19

With Sheets("4 - Mon prévisionnel")
NbrLig = .Cells(200, Col).End(xlUp).Row
For Lig = 3 To NbrLig = 18

If .Cells(Lig, Col).Value = "Payé" Then
.Cells(Lig, Col).EntireRow.Copy NumLig = NumLig + 1
Sheets("5 - Bilan financier").Cells(NumLig, 1).Paste Shift:=xlDown
End If

Next
End With

End Sub