Problème de décalage en VBA

[ quand je copie puis colle plusieurs facture dans un même onglet tous mes copier-coller se font en écrasant/QUOTE]

je te trouve gonflé! C'est moi qui ai écris ces macros cet après midi. Dans la fonction GetWorkSheet j'y avais mis mon pseudo. Il a déjà disparu!

De plus refaire un fil pour ça, c'était peut-être pas necessaire, il suffit de rajouté +1 (ou 2 si tu veux) après UsedRange.columns.count

Code:

Sub Macro2()
    Dim Wkb As Workbook
    Dim shDestination As Worksheet
    Dim NomFeuille As String
    If ActiveSheet.Name = "Achat" Then
        Set Wkb = Workbooks("Archive Achat.xlsx")
    ElseIf ActiveSheet.Name = "Vente" Then
        Set Wkb = Workbooks("Archive Vente.xlsx")
    Else
        Exit Sub
    End If
    If Wkb Is Nothing Then Exit Sub
    NomFeuille = Range("I13") & " " & Range("I14")
    Set shDestination = GetWorkSheet(NomFeuille, Wkb, True)
    If shDestination Is Nothing Then Exit Sub    '
    Range("A2:G50").Copy
    With shDestination
        .Cells(1, .UsedRange.Columns.Count + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With
    Application.CutCopyMode = False
End Sub

A+

Cliquez pour agrandir...