Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
Set Tablo = Worksheets("Feuil2").ListObjects("Tableau4")
Set Plage = Tablo.DataBodyRange.Columns(4).SpecialCells(xlCellTypeBlanks).Cells
'Set plage2 = Plage.SpecialCells(xlCellTypeBlanks)
If Not Intersect(Target, Range("D9")) Is Nothing Then
MsgBox Plage.Cells.Count & Chr(13) _
& Tablo.Name & " : " & Tablo.DataBodyRange.Address
With Plage
MsgBox Plage.Rows.Count
'.Rows.Select
.Find("", , , , xlByRows, xlPrevious).Select
End With
cancel = True
End If
End Sub