Salut Naël Bureautique et Gestion je suis un nouveau abonné et j'appréci ce que vous faites je me suis inspiré de votre code pour avoir ce qui suit qu'en dites vous !? Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C12")) Is Nothing Then Range("D12:E12").Value = "" Else If Not Intersect(Target, Range("D12")) Is Nothing Then Range("E12").Value = "" End If End If End Sub les listes se mettent a blanc au changement au lieu du click