Re
Essaie comme ceci
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Cancel = False
dlg = Sheets("DEVIS BC BL FACTURE").Range("C" & Sheets("DEVIS BC BL FACTURE").Rows.Count).End(xlUp).Row
Select Case dlg
Case Is >= 41: MsgBox "Vous ne pouvez plus copier de ligne dans la feuille": Cancel = True: Exit Sub
Case Is < 14: dlg = 12
End Select
Rows(Target.Row).Copy
Sheets("DEVIS BC BL FACTURE").Range("A" & dlg + 2).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Cancel = True
End If
End Sub
Si ok, clique sur la case à cocher verte à coté du bouton Editer afin de clôturer le fil
Cordialement