Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long, k As Long
Application.ScreenUpdating = False
If Target.Column <> 5 Then MsgBox "Cliquer sur un n° de licence en colonne E => Echec!", vbCritical: Exit Sub
If Target = "" Then MsgBox "Pas de n° de licence => Echec!", vbCritical: Exit Sub
Cancel = True
With Sheets("bordereau reprise de licence")
If WorksheetFunction.CountIf(.Columns("e:e"), Target) > 0 Then
MsgBox Target & " : N° de licence déjà sur la feuille <bordereau reprise de licence> => Echec!", vbCritical
Else
i = .Range("E" & Rows.Count).End(xlUp).Row + 1
If .Range("E" & Rows.Count).End(xlUp).Row + 1 = 25 Then
MsgBox "Le maximum de licenciés sur la feuille <bordereau reprise de licence> est déjà atteint => Echec!", vbCritical
Else
.Range("C" & i) = Range("C" & Target.Row).Value
.Range("e" & i) = Range("e" & Target.Row).Value
k = Application.Match(Cells(Target.Row, "b"), Sheets("adresse").Columns("a:a"), 0)
If k > 0 Then .Cells(i, "o").Value = Sheets("adresse").Cells(k, "b").Value
End If
End If
End With
End Sub