Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B3:F5]) Is Nothing Then Exit Sub
Cancel = True
With Feuil2.[C3:C17]
If Application.CountA(.Cells) = .Count Then MsgBox "La plage de destination est pleine...": Exit Sub
.Find("", , xlValues, , , xlPrevious) = Target 'recherche la 1ère cellule vide
.Sort .Cells(1), xlAscending, Header:=xlNo 'tri
Target.Interior.ColorIndex = 6 'coloration facultative
End With
End Sub