Simplifier le code

Bonjour à tous,

Dans le fichier joint, une formule VBA qui me parait un peu lourde. Y a-t-il moyen de la simplifier ? Merci.

Bonjour,

Essayez le code comme ceci :

Sub test01()

    Range("C34").Copy
    Range("C1").PasteSpecial Paste:=xlPasteValues

    Range("C35").Copy
    Range("E1").PasteSpecial Paste:=xlPasteValues

    Range("C36").Copy
    Range("I1").PasteSpecial Paste:=xlPasteValues

    Range("C37:C38").Copy
    Range("F5").PasteSpecial Paste:=xlPasteValues

    Range("C39:C40").Copy
    Range("H5").PasteSpecial Paste:=xlPasteValues

    Range("C41:D42").Copy
    Range("I6").PasteSpecial Paste:=xlPasteValues

    Range("D35").Copy
    Range("D2").PasteSpecial Paste:=xlPasteValues

    Range("E36").Copy
    Range("K1").PasteSpecial Paste:=xlPasteValues

    Range("A1").Select
End Sub

Evitez les cellules fusionnées comme je vois en I1 et J1. Avec VBA vous risquez toujours d'avoir un souci à un moment ou un autre.

Si ok --> pensez à

Cordialement

Effectivement, ça bloque au niveau de la cellule fusionnée... Je vais essayer de trouver la parade.

Sinon, le reste est impeccable. Merci

Effectivement, ça bloque au niveau de la cellule fusionnée

Vous défusionnez et ce sera résolu en principe

Pensez à

Cordialement

C'est ce que j'ai fait finalement.

Merci