Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
With Sheets(Target.Worksheet.Name)
If Not Intersect(Target, Range("c2:p2")) Is Nothing Then
SendKeys "{RIGHT}"
If vbYes = MsgBox("Cette Commande va écraser les montants déjà encodés" & vbCr & vbCr & vbCr & _
" Voulez-vous continuer ?", vbExclamation + vbYesNo, "Copie") Then
col = Target.Column
Lig = 196
For k = 3 To 51 Step 2
Cells(k, col) = Cells(Lig, col).Value
Lig = Lig + 1
Next
End If
End If
End With
End Sub