Erreur dans mon code

Bonjour, est-ce quelqu'un pourrait me dire où se trouve l'erreur s'il vous plait ?

Private Sub CommandButton1_Click()

With Sheets(1)

Dim derlig: derlig = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row

Dim x As Integer

x = 1

Do Until x > 5

For i = 1 To derlig

If Sheets(2).Cells(i, 4).Value = "Transfert entrée paquets" Then

x = x + 1

MsgBox "" & x & "", vbExclamation

End If

Next

Loop

End With

End Sub

Bonjour

essaie comme ceci

Private Sub CommandButton1_Click()
Dim x As Integer
x = 1
Do Until x > 5
    For i = 1 To Sheets(1).Range("A" & Sheets(1).Rows.Count).End(xlUp).Row
        If Sheets(2).Cells(i, 4).Value = "Transfert entrée paquets" Then
            x = x + 1
            MsgBox "" & x & "", vbExclamation
        End If
    Next
Loop
End Sub

si ok lors de ta réponse, clique sur le v vert à coté du bouton EDITER pour clôturer le fil

Crdlt