Bonjour
Vous pouvez essayer avec ce code
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim dlg As Integer
If Not Intersect(Target, Range("A2:A" & UsedRange.Rows.Count)) Is Nothing Then
With Sheets("Relance")
dlg = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A" & dlg) = Range("A" & Target.Row).Value
.Range("B" & dlg) = Range("B" & Target.Row).Value
.Range("C" & dlg) = Range("C" & Target.Row).Value
.Range("D" & dlg) = Range("W" & Target.Row).Value
End With
Cancel = True
End If
End Sub
Code à placer dans la feuille Tableau puis enregistrer votre fichier au format XLSM pour accepter les macros
si ok -->
Cordialement