Bonjour à tous!!!

Je viens vers vous car j'ai un petit souci avec un petit code vba,étant novice dans cet art j'aurais besoin d'une petite aide s'il vous plait.

Mon souci:je souhaiterais sur une meme feuille Excel coller des données sur différentes plages de cellules.
Par exemple:mon code permet via un UserForm de coller des données sur la Feuil2 à partir de la cellule A2,et j'aurais aimé coller aussi des données en H2 et P2.
Le message d'erreur afficher est "impossible de coller les infos car les zones copier et de collage sont de formes et tailles différentes..."

Donc j'ai essayé d'utiliser la méthode Range sous toutes ces formes ,impossible de réussir.

voici mon codesouhaitant coller à partir de la cellule P2)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CommandButton13_Click()
Dim Tabl(): j = 0
    With Me.ListBoxLocataire
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then
                j = j + 1
                ReDim Preserve Tabl(0 To j)
                Tabl(j) = .List(i, 0)
                .Selected(i) = False
            End If
        Next
    End With
    Sheets("EXTRACTION").Activate
    Range([A1], [A65536].End(xlUp)).Select
    Set Plg = Selection
    For w = 1 To j
        For Each cell In Plg
            If CStr(cell.Value) = Tabl(w) Then
                Rows(cell.Row & ":" & cell.Row).EntireRow.Select
                Set maPlage = Selection
                'LE METTRE EN P2
                Set Destination = Sheets("URGENCE").Range("P65536").End(xlUp).Offset(1, 0)
                maPlage.Copy Destination
                Exit For
            Else
            End If
        Next cell
    Next w
    Call Reaffiche
End Sub
Merci beaucoup pour votre aide futur!!!!