Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
Dim PL As Range
If Target.Value <> "" Then Cancel = True: Exit Sub
If Target.Column = 4 And Target.Row > 11 And Cells(Target.Row, 1) <> "" Then
Cancel = True
i = Target.Row
With Sheets("Formulaire Process")
.[W1] = .[W1] + 1
Set PL = .Range("A6:A43")
PL(.[W1]) = Cells(i, 1)
PL(.[W1]).Offset(, 1) = Cells(i, 2)
End With
Cells(i, 4) = "ü"
End If
End Sub