Copier dans la dernière ligne du tableau

[ascal44]

Bonsoir , j'ai créer une macro et je voudrais la modifier pour faire la copie sur la dernière ligne du tableau :

Sub Export()

Application.ScreenUpdating = False

    Windows("Quittances.xls").Activate
    
    Range("F9:G10").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Windows("Synthèse quittances.xls").Activate
    Range("A6").Select ' copier dans la dernière ligne du tableau
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Windows("Quittances.xls").Activate
    Range("F18").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Windows("Synthèse quittances.xls").Activate
    Range("B6").Select ' copier dans la dernière ligne du tableau
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Windows("Quittances.xls").Activate
    Range("C19:G20").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Windows("Synthèse quittances.xls").Activate
    Range("C6").Select ' copier dans la dernière ligne du tableau
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Windows("Quittances.xls").Activate
    Range("D45:G46").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Windows("Synthèse quittances.xls").Activate
    Range("D6").Select ' copier dans la dernière ligne du tableau
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Windows("Quittances.xls").Activate
    Range("G51").Select
    Application.CutCopyMode = False
    Selection.Cut
    ActiveSheet.Paste
End Sub

Merci pour votre aide

 

[Staple1600]

Re : Copier dans la dernière ligne du tableau

Bonsoir à tous

ascal44
Regardes tout en bas de la page et tu trouveras cinq fois ton bonheur