Bonjour à tous,

Je dois travailler actuellement sur un outil de gestion du temps de travail, et par la force des choses, me voilà à découvrir VBA depuis peu.

Ce forum déjà m'a beaucoup aidé à avancer!

J'ai finalement besoin d'une aide plus précise, puisque je reste perplexe sur ce problème.
Alors que le code ci-dessous fonctionnait très bien jusqu'à présent, aujourd'hui excel m'affiche une "erreur de compilation : Membre de méthode ou données introuvables".

Je n'ai pourtant rien modifié (il me semble)...

Voilà le code. Cette macro fait partie de la commande qui reset le document "modèle".
Apparemment le soucis vient du clearcontents.

Auriez-vous des pistes?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Reset1()
    Sheets("Modèle").Range("A2").Activate
Dim couleur As Integer
Dim cell As Range
Dim plage As Range
 
Set plage = ActiveCell
couleur = ActiveCell.Interior.ColorIndex
If couleur = xlNone Then Exit Sub
For Each cell In ActiveSheet.UsedRange
If cell.Interior.ColorIndex = couleur Then
Set plage = Union(plage, cell)
End If
Next cell
plage.Select
Selection.clearcontents