Le copier coller se fait tres lentement

bonsoir

j'ai réalisée un petit programme , ma base de donné contient 4000 lignes lors de la copie de toutes les lignes , le copié est réalisé aprés environ 2 min.

Comment je pourrais faire pour l'accélérée

mon code est beaucoup trop long mais je vous mais une partie du programme principal

Private Sub UserForm_Initialize()
    Dim Cellule As Range
    Dim balan As Range

    Dim oCollection As New Collection
    Dim i As Long

    For Each Cellule In Feuil4.Range("a2:a" & Feuil4.Range("a" & Rows.Count).End(xlUp).Row)
        AjouterItem oCollection, Cellule.Value
    Next Cellule

    For i = 1 To oCollection.Count
        ComBox1.AddItem oCollection.Item(i)

End Sub

merci pour votre aide

Bonsoir,

ton code ne nous sert pas vraiment à t'aider, il n'y a aucune instruction de "Copier"

As-tu des formules dans tes cellules?

Si oui, ajoute ceci en début de code :

Application.Calculation = xlCalculationManual