Enlever les select à mon code

Bonjour à tous, j'ai un code (ci-dessous) et je souhaiterai de l'aide pour l'optimiser et enlever tout les selects qui ralentissent la macro car des commes ça j'en ai beaucoup !

        Sheets(FIcourante).Select
        Range("O2").Select
        Selection.Copy
        Sheets("OT cloturé").Select
        Range("A65536").End(xlUp).Select
        Selection.Offset(1, 0).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

Bonsoir babouze64, le forum,

Peut-être ainsi....

Sheets("FIcourante").Range("O2").Copy
Sheets("OT cloturé").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
Application.CutCopyMode = False

Cordialement,

Merci xorsankukai pour ta proposition.

Sa bug sur la première ligne du code. Je pense que c'est le .copy ...

je pensais à un truc du genre :

Sheets("OT cloturé").Range("A65536").End(xlUp).Offset(1, 0).Text = Sheets("FIcourante").Range("O2").Text

Mais ça marche pas non plus (.Text à changer en .Value peut être ...)

je crois que j'y suis :

Sheets("OT cloturé").Range("A65536").End(xlUp).Offset(1, 0) = Sheets(FIcourante).Range("O2").Value

je teste et vous dit ...

Re,

Sa bug sur la première ligne du code. Je pense que c'est le .copy ...

Bizarre, ça fonctionne chez moi....

CTRL + e pour lancer la macro..

Cordialement,