dealerxd a écrit :
Bonjour
Merci de m'aider ^^ mais toujours le même problème "variable objet ou bloc with non définie, la ligne surligné est toujours la m^me lors du débogage :
Application.Intersect(.Cells, .Offset(1)).ClearContents
bonjour,
je pense que tu reçois le message d'erreur car les cellules sont déjà vides.
adapte le code de cette façon
With .CurrentRegion
on error resume next
Application.Intersect(.Cells, .Offset(1)).ClearContents
on error goto 0
End With