Bonjour à tous amis excelliens

Actuellement j'ai deux tableaux. Le premier est sur la Feuille3, et le second est sur la Feuille5.
Dans la première colonne de mon tableau (Feuille 5), j'ai ajouté une liste avec : En attente; Valider. Lorsque je me place dans la cellule de ce tableau et que je sélectionne "Valider", je voudrais que ça copie la valeur (situé dans la deuxième colonne du tableau) et que ça la colle dans mon autre tableau (Feuille 3, colonne B).

J'ai fait ce code que j'ai placé dans ThisWorkbook :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub AjoutValeur()
 
Dim DL As Integer
DL = Sheets(3).Range("b9999").End(xlUp).Row
 
If Sheets(5).ListObjects(1).ActiveCell = "Valider" Then
 
Range(ActiveCell, ActiveCell.Offset(0, 2)).Select.Copy
Destination: Sheets(3).ListObjects(1).Range ("B" & DL)
 
End If
 
End Sub
Bien évidement ça ne marche pas Si quelqu'un peut m'aider ça serait vraiment sympas