Optimiser quelques macros

Bonjour,

J'ai beaucoup avancer sur mon doc et je voulais remercier tout le monde.

J'aurais besoin d'un petit coup de main pour optimiser quelques macros, si quelqu'un a des idées...!

'Je souhaite effacer une valeur qui ne se trouve pas dans la feuille active

Sheets("Feuil2").Select
Selection.ClearContents
Sheets("Tableau").Select

RESULTAT: Il y a un clignotement à l'activation de la macro (changement de feuille, deux fois...)
De puis je n'ai pas reussi à lui faire comprendre le range. donc sur la feuille 2, je laisse la sélection sur A1:P1 pour qu'il l'efface.

Ce que je voudrais faire:
Range"Feuil2,A1:P1" clearcontents, d'un seul coup et en précisant vraiment le range.
Comment le formuler?


J'ai la même chose ici:

Range(ActiveCell, ActiveCell.Offset(0, 15)).Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Tableau").Select

Ce que je voudrais faire: Coller, range Feuil2, A1:P1, d'un seul coup, sans utiliser "Feuil2.Select" et "Tableau.select" pour changer de feuilles afin d'éviter le clignotement.

Merci beaucoup!