Private Sub CommandButton1_Click() 'bouton "AJOUTER"
Dim des As Range 'déclare la variable dest (celulle de DESTination)
ActiveCell.Select 'enlève le focus au bouton
'définit la cellule de destination (première cellule vide de la colonne B)
Set dest = Sheets("Liste").Cells(Application.Rows.Count, 2).End(xlUp).Offset(1, 0)
With Range("B3:D3") 'prend en compte la plage B3:D3
.Copy dest 'copie la plage et la colle dans la cellule dest
.ClearContents 'efface le contenu de la plage
.Cells(1).Select 'sélectionne la cellule B3
End With 'fin de la prise en compte de la plage B3:D3
End Sub