Bonjour,
Pour plusieurs références - mais une à la fois - un double clic sur chaque référence peut les transférer dans ton autre onglet
P.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then
Range("A" & Target.Row & ":H" & Target.Row).Interior.ColorIndex = 2
Li = ActiveCell.Row
Range("A" & Li & ":H" & Li).Copy Destination:=Sheets("Pièces à commander").Range("A65000").End(xlUp)(2)
End If
End Sub
Oups.. pas rafraîchi et donc pas vu la réponse précédente