Pourquoi ActiveWorkbook.Save bloque ma macro ?

Bonjour,

Ma macro fonctionnait bien jusqu'à ce que je rajoute l'instruction ActiveWorkbook.Save.

Très bizarrement, le code bloque maintenant selon l'image ci-dessous. Avez-vous une idée pourquoi ?

Cordialement.

J'ai peut-être posté un peu vite, car après avoir refermé Excel et avoir redémarrer mon ordi, tout est entré dans l'ordre. Si vous avez une idée de ce qui a pu se passer, merci quand-même de me le faire savoir.

Bonjour,

Et de cette façon ? Quelques petites modifs :

Sub Tri()

    Dim Plage As Range

    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 3).End(xlUp)): End With

    Application.ScreenUpdating = False

    Plage.Sort Plage(1, 3), xlAscending, Plage(1, 1), , xlAscending, , , xlYes

    Plage.Borders.Weight = xlThin

    Plage.Offset(1).Rows.AutoFit

    Application.ScreenUpdating = True

    ActiveWorkbook.Save

End Sub

Salut Theze et merci pour ta réponse.

En fait ce n'est pas une solution de rechange que je demandais, mais une explication à mon problème. De toute façon tu n'as vraisemblablement pas lu mon ''Ajout'' car j'ai indiqué par la suite que mon code fonctionnait finalement.

Ma question reste donc ouverte : qu'est-ce que j'ai bien pu bidouiller afin que mon code (en fait tous mes codes, je l'ai constaté sur un autre fichier) bloque un certain temps, le temps que je referme mon application Excel et que je redémarre mon ordi ?

Amicalement.