Blocage

Bonjour,

J'essaye de faire fonctionner un document, faire un copier coller d'un tableau à un autre en fonction d'un critère mais cela ne fonctionne pas.
Voici la formule que j'ai essayé :

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

EDIT : Ajout des balises de code

Merci de m'aider si vous pouvez svp.