Bonjour à toutes et tous,

Je cherche à développer une macro de duplication d'une ligne vers la 1ère ligne non vide de mon tableau structuré nommé "Tab_Compta".
Pour ce faire, j'ai une colonne "Duplication" dans laquelle je saisi un X pour indiquer la ligne concernée par la duplication.

Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Dupliquer()
 Sheets("Compta").Activate
 
' 1) Chercher dans colonne D "Duplication" la valeur X => Test avec IF ?
' Si la cellule D25 est vide Alors teste la suivante (D26) Sinon lance la suite du code
 
' 2) Copier la ligne de la colonne E à J
    Range("Tab_Compta[[Mois]:[Mode Rgt]]").Copy
 
' 3) Sélectionner la 1ère cellule vide dans E
    DerCell = Cells(Rows.Count, "E").End(xlUp).Row
    Cells(DerCell + 1, "E").Select 'Sélectionne la 1ère cellule vide dans E
 
' 4) Copier la sélection
    ActiveSheet.Paste 'Colle
 
' 5) Effacer X
'    Je connais grâce au point 1) la cellule contenant X
'    La sélectionner et utilisation de Clear.
 
End Sub
C'est le point 1) que je n'arrive pas à faire.
Le point 2 sera à adapter quand le point 1 sera résolu.
Les points 3 à 4 sont normalement corrects.
Le point 5 je le traiterai quand le point 1 sera résolu.

Merci pour votre aide

Philippe