Ajouter du code pour récupérer une référence à votre feuille de calcul:
Set feuille de calcul = ThisWorkbook.Worksheets (1)
Si vos données ne sont pas sur la première feuille de calcul dans le classeur, changer le numéro ci-dessus de 1 à l'index de la feuille de calcul qui contient vos données.