macro plante quand la feuille n'est pas active

[tomcho]

Bonjour,

je ne comprend pas l'erreur, c est la premiere fois que je suis confronté à ce probleme

la macro plante quand elle fait référence à une feuille (ici "listes")et que cette feuille n'est pas selectionnée
Si on est sur la feuille 1 et qu'on execute , elle plante

sub compil()

For Each cell In Sheets("listes").Range("a1", Range("a1500").End(xlUp))
If Not IsEmpty(cell) Then
'cell.Select
CI = cell.Value
End If
'Set def = Sheets("cmd").Range("a1")
Next

End Sub



merci pour votre aide, je m'arrache les cheveux!
-----

[umfred]

la macro plante sur quelle ligne et avec quel code d'erreur ?
Je soupçonne le Range("a1500").End(xlUp) de se faire sur la page active et donc serait la raison du plantage si "listes" n'est pas la feuille active
Donc faire aussi précéder ce Range du nom de la feuille Sheets("listes").Range("a1500" ).End(xlUp)