XL 2013 Aide simplifier MACRO

[Kaizers]

Bonjour à tous,

J'ai une macro qui fonctionne, mais j'aimerais la simplifier, retirer les .select qui ne servent à rien.

Voici le code général qui fonctionne ;

Windows("Budget.xlsm").Activate
Sheets("Admin").Range("B25:G25").Copy



Sheets("DATA").Select

T = WorksheetFunction.CountA(Columns(1))

Sheets("DATA").Range("A" & T + 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Sheets("DATA").Range("A" & T + 1, "F" & T + 1).Copy


Sheets("Admin").Range("B30").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Sheets("admin").Select

Range("D13").ClearContents

    Application.CutCopyMode = False

J'aimerai retirer le .select de cette partie ; Je ne sais pas comment compter sans aller sur l'onglet en question

Sheets("DATA").Select

T = WorksheetFunction.CountA(Columns(1))

Merci pour votre aide

 

[Jacky67]

bonjour,
Cela pourrait ressembler à ceci

Windows("Budget.xlsm").Activate
Sheets("Admin").Range("B25:G25").Copy
With Sheets("DATA")
    t = WorksheetFunction.CountA(.Columns(1))
    .Range("A" & t + 1).PasteSpecial Paste:=xlValues
    .Range("A" & t + 1, "F" & t + 1).Copy
End With
With Sheets("admin")
    .Range("B30").PasteSpecial Paste:=xlValues
    .Range("D13").ClearContents
End With
Application.CutCopyMode = False