Salut Virginie.
Tiens tiens, ça me rappelle quelque chose!
Bon, pour le moment, je ne vois pas pourquoi il y a copie 1000 lignes plus bas! Il faudrait que tu envoies ton fichier.
Juste un truc que je remarque: pour tes bordures, tu travailles sur selection, or les lignes d'avant ne travaillent pas sur les cellules selectionnées. Il faudrait que tu appliques le traitement des cellules à Range("AB65536").end(xlup).CurrentRegion
D'autre part, tu as Deux With ... end with imbriqués. Ton problème vient peut-être de là.
Essaye toujours cette procédure:
Sub Macro_Copier_Coller_Trier()
Application.ScreenUpdating = False
With Range("AB65536")
.End(xlUp).CurrentRegion.Copy
.End(xlUp).Offset(rowOffset:=8, columnOffset:=0).PasteSpecial
Application.CutCopyMode = False
.End(xlUp).Cells(0, 1).Resize(1, 7).Sort Key1:=.End(xlUp).Cells(0, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
.End(xlUp).Resize(1, 7).Sort Key1:=.End(xlUp), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
End With
'Instructions ajoutées Par moi même pour la mise en forme de destination
With Range("AB65536").end(xlup).CurrentRegion.Borders
.Weight = xlMedium
.ColorIndex = xlAutomatic
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Application.ScreenUpdating = True
End With
End Sub
Dis moi si ça suffit, sinon, envoie le fichier.
@+, Laurent.