Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Interior.ColorIndex = 3 Then
With Sheets("recherche")
.[B11] = Cells(Target.Row, 2).Value
.[B16] = Cells(Target.Row, 1).Value
.Copy Before:=Sheets(1)
ActiveSheet.Name = .[B4]
.Select
Union(.[B4], .[B11].MergeArea, .[B16].MergeArea).ClearContents
End With
Cancel = True
End If
End Sub