Private Sub CommandButton1_Click() 'bouton "Copier"
Dim pl As Range 'déclare la variable pl (PLage)
Dim dest As Range 'déclare la variable dest (celllule de DESTination)
Dim r As Range 'déclare la variable r (Recherche)
Set pl = Range("A1:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row) 'définit la plage pl
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
Set dest = IIf(Range("E1").Value = "", Range("E1"), Cells(Application.Rows.Count, 5).End(xlUp).Offset(1, 0)) 'définit la cellule de destination
Set r = Columns(5).Find(cel.Value, , xlValues, xlWhole) 'définit la recerche
If r Is Nothing Then cel.Copy dest 'si la valeur de la cellule cel n'existe pas dans la colonne E, copie et colle la cellule cel
Next cel 'prochaine cellule de la boucle
End Sub