Bonsoir à tous,
Tu peux vérifier aussi la plage réellement occupée sur la feuille,
en faisant au clavier (à gauche du pavés numérique)
1) touche fin
2) juste au dessus, touche flèche inclinée
ceci t'amène à la dernière cellule occupée
On a souvent des surprises !
par exemple, il suffit qu'une cellule en DD65000 soit occupée par un caractère parasite
c'est encore pire sur Excel2007 avec son million de lignes !
Vois aussi s'il ne traine pas des objets invisibles
Sub SupprObjets()
Dim Rep%, x%
'------- supprime objets ------
x = ActiveSheet.Shapes.Count
Rep = MsgBox("il y a : " & x & " objets dans cette feuille" & Chr(10) & _
"Voulez-vous supprimer certains objets ?", vbYesNo + vbCritical + _
vbDefaultButton2, "Suppression objets")
If Rep = vbYes Then
ActiveSheet.DrawingObjects.Select
MsgBox ("Sélectionnez les objets à conserver avec la touche MAJ enfoncée" & Chr(10) & _
"ensuite, appuyez sur touche < Suppr >" & Chr(10) & _
"les objets indésirables seront supprimés !")
Exit Sub
End If
End Sub
Amicalement
Claude.