Bonjour,

Le code suivant provoque l'erreur stipulée en objet de ce sujet:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub traitement()

Dim ws_n_diff As Sheets
Dim ws_ind_media As Sheets

Set ws_n_diff = Sheets("nombre")
Set ws_ind_media = Sheets("indice")

last_line = ws_n_diff.Range("A" & Rows.Count).End(xlUp).Row
Pour la "débloquer", il faut soit supprimer les lignes en violet, soit remplacer la ligne en gras par:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
last_line = Range("A" & Rows.Count).End(xlUp).Row[/B]
Quelle l'origine de l'erreur?

D'avance merci et bon début de journée à toutes et tous!