Message erreur pour un copier coller avec RefEdit Control

[vassili]

Bonjour à tous,

Voilà j'ai un soucis avec une erreur de type 1004 qui me signale une impossibilité de coller le contenu car il n'est pas de la même taille.

b est la feuille d'arrivée.

Voici le code:

Sub traitement()

Dim i As Integer
Dim Rep1 As String
Dim plage As String

    L = 1
        ActiveWorkbook.Sheets(Copie_donner.ComboBox1.Value).Select
    RSADD = Application.WorksheetFunction.Proper(Copie_donner.ComboBox1)
    plage = Copie_donner.RefEdit1.Value
        If plage = "" Then
           MsgBox "vous n'avez rien sélectionné, recommencez !"
            Exit Sub
        End If
        Selection.Copy
    Nbligne = 21
    MaColonne = Mid(Cells(1, L).Address, 2, InStr(2, Cells(1, L).Address, "$") - 2)
    n = ActiveSheet.Range(MaColonne & "1").End(xlDown).Row
        Sheets("b").Range("A1").End(xlDown).Offset(1, 0).Value = plage
        Sheets("b").Select
               ActiveWorkbook.ActiveSheet.Range(MaColonne & "1").End(xlDown).EntireRow.Select
               lignedeb = Selection.Row
               [B]ActiveWorkbook.ActiveSheet.Paste[/B] sa bloque ici quand j'éxécute
        Rep1 = InputBox("Veuillez saisir un numéro", " 1.")
        Sheets("b").Range(Cells(lignedeb, 1), Cells(lignedeb + Nbligne - 2, 1)).Select
        Selection.Insert Shift:=xlToRight
        Selection.Delete Shift:=xlToLeft
        Selection.SpecialCells(xlCellTypeBlanks).Select
        Selection.Value = Rep1
        Sheets("b").Range(Cells(lignedeb, 1), Cells(lignedeb + Nbligne - 2, 1)).Select
        
End Sub

Merci à tous par avance