Bonjour dede039, le forum,
Essaie de virer tous les "SELECT" de ton code ça ira mieux.
En effet, il n'est pas nécessaire de sélectionner par exemple une cellule pour lui appliquer une mise en forme.
exemple au lieu d'écrire:
Range(ActiveCell, ActiveCell.Offset(0, 2)).Select
Selection.Copy
il est judicieux de faire comme ci-dessous:
Range(ActiveCell, ActiveCell.Offset(0, 2)).Copy
Ainsi le code est plus rapide on copie sans sélectionner. On est pas obligé de sélectionner.
Explique-nous ce que tu veux faire exactement.
Bonne journée.