Vérifie que r ne soit pas null, peut être que
Set r = classeur.Sheets(1) ne marches pas.