Erreur dans boucle For

Private Sub CommandButton1_Click()
 
Dim LgnDeb As Long
Dim LgnCpy As Long
 
With Sheets("Feuil1")

For LgnDeb = 4 To 54

LgnCpy = Sheets("Rapp. Mensuel").Range("B65536").End(xlUp).Row + 1

If LgnCpy < 18 Then LgnCpy = 18

If .Range("G" & LgnDeb).Value <> "" Then
.Range("B" & LgnDeb).Copy Sheets("Rapp. Mensuel").Cells(LgnCpy, 2)
.Range("G" & LgnDeb).Copy Sheets("Rapp. Mensuel").Cells(LgnCpy, 4)
End If

Next LgnDeb

End With

End Sub

With Sheets("Base")
  For i = 1 To .Range("A65000").End(xlUp).Row
    If .Range("A" & i).Value = ComboBox1.Text Then
        
        For v = 1 To Sheets("Langues").Range("A65000").End(xlUp).Row
            If Range("A" & i).Value = ComboBox1.Text And Range("E" & i).Value = Sheets("Langues").Range("A" & v).Value Then GoTo suivant
        Next v
            
        L = Sheets("tous").Range("A65000").End(xlUp).Row + 1
        Sheets("tous").Range("A" & L & ":H" & L).Value = .Range("A" & i & ":H" & i).Value
        
    End If
suivant:
  Next i
End With