Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cellules As Object
[COLOR="SeaGreen"] 'en cas de sélection du titre[/COLOR]
If Target.Address = "$B$2" Then
[COLOR="seagreen"]'on copie toute le contenu, cellule après cellule[/COLOR]
For Each cellules In Range("B2:B" & [B65000].End(xlUp).Row)
Call copie_cell(Target.Text, cellules)
Next
End If
[COLOR="seagreen"]'en cas de sélection d'une cellule entre B3 et B100[/COLOR]
If Not Intersect([B3:B100], Target) Is Nothing Then
Call copie_cell([B2].Value, Target)
End If
Cancel = True
End Sub