XL 2016 Autofill et copie valeurs

[Vincenzozo]

Bonjour à tous,

Voilà, j'aimerai "optimiser" mon autofill... C'est à dire que je souhaiterai après le remplissage automatique, copier/coller les valeurs uniquement (pour trier)...

J'ai ceci comme code :

dern_ligne_tableau1 = Sheets("Avancement_tri").Range("A" & Rows.Count).End(xlUp).Row

    Sheets("Avancement_tri").Range("F9:P9").Select
    Sheets("Avancement_tri").Range(Selection, Selection.End(xlDown)).Delete Shift:=xlUp
    Sheets("Avancement_tri").Range("F8:P8").AutoFill Destination:=Range("F8:P" & dern_ligne_tableau1)
   
'Jusque là, tout va bien...
'C'est le bloc en dessous qui merdouille
    Sheets("Avancement_tri").Range("A8:P" & dern_lign_tableau1).select
    Selection.copy
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select

Vous sauriez me dépatouiller ce truc svp?? Merci

 

[vgendron]

Hello
un essai à faire sur ton fichier

remplace tout le bloc qui merdouille par ceci

Sheets("Avancement_tri").Range("A8:P" & dern_lign_tableau1)=Sheets("Avancement_tri").Range("A8:P" & dern_lign_tableau1).value