Hello,

Je ne parviens pas à insérer une cellule au début de mon range. J'ai sélectionné les données mais je perds l'entête "Prénom" du début ligne 1 donc je veux l'ajouter.

J'ai essayé avec ça mais ça bug, il veut pas copier la selection.. :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
    Dim rHead As Range
    Dim rData As Range
    Dim rAll As Range
    Set rHead = Sheets("Données incidents").Range("D1:D2")
    Set rData = Sheets("Données incidents").Range("D22815:C22833")
    Set rAll = Union(rHead, rData)
    Sheets("Données incidents").Select
    rAll.Select
    Selection.Copy
C'est simplement pour ajouter une cellule au début du Range avec le mot "Prénom". J'aimerais pouvoir le faire en une ligne et pas faire des boucles ...

Auriez-vous une idée svp ? Merci