Bonsoir,
Ta liste déroulante comporte toujours les dates reprises en ligne 4 ??
exemple en B2 tu as 1/02/2011. est-ce que tu peux avoir 3/02/2011
si B2 = les dates trouvées en ligne 4, voici un code à essayer
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Macro dan
Dim dcl As Integer
dcl = Cells(4, Columns.Count).End(xlToLeft).Column
If Not Intersect(Target, Range("B2")) Is Nothing Then
dcl = Range("C4:J4").Find(Target.Value, LookAt:=xlWhole, SearchOrder:=xlByColumns).Column
Range(Cells(5, 3), Cells(23, dcl)).ClearContents
End If
End Sub
Code à placer dans la feuille concernée par ton tableau.
Pour le placer, clique droite sur l'onglet concerné puis choisir "visualiser le code" et coller le code ci-avant dans la fenêtre
Amicalement