Bonjour à tous
Je viens solliciter votre aide pour un problème peut-être simple pour vous du moins je l'espère car moi j'en perds mon latin

J'ai un code qui copie des colonnes à la suite :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
With ActiveSheet.UsedRange
    [P:S].Copy .Columns(.Columns.Count + 1).EntireColumn
   [Q:R].ClearContents
 
End With
End Sub
Ce code copie 4 colonnes à la demande et les unes après les autres et ça c'est parfait.
Mais tout est copié et ce que je voudrais c'est effacer le contenu des cellules situées dans la plage XXX des nouvelles colonnes

Bien sur le ClearContents n'est pas adapté, c'est un de mes nombreux essais.

J'espère que vous pourrez m'aider à finaliser ce code
Merci d'avance
Bon weekend
Jack