cliquer/coller

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'condition : si le double-clic à lieu dans B4:B11 ou H4:H11
If Not Application.Intersect(Target, Application.Union(Range("B4:B11"), Range("H4:H11"))) Is Nothing Then
    GoTo fin 'va à l'étiquette "fin"
End If 'fin de la condition
'condition : si le double-clic à lieu dans B17:B24 ou H17:H24
If Not Application.Intersect(Target, Application.Union(Range("B17:B24"), Range("H17:H24"))) Is Nothing Then
    GoTo fin 'va à l'étiquette "fin"
End If
Exit Sub 'sort de la procédure
 
fin: 'étiquette
Cancel = True 'évite le mode édition lié au double-clic
Cells(Target.Row, 14).Value = Target.Value 'copie dans la colonne N la valeur de la cellule double-cliquée
Target.Value = "" 'efface la cellule double-cliquée
End Sub

Target.Value = "" 'efface la cellule double-cliquée