Bonjour les experts

je souhaiterai utiliser Cells à la place de :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Do While Range("E" & derniereligne) = Range("E" & premiereligne)
J'ai mis :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Do While Range(Cells(derniereligne, 5)) = Range(Cells(premiereligne, 5))
sans succès (l'objet range a échoué)

Pourriez vous m'aider ?

merci !