Re : probleme liste de validation
Re-,
Tu peux modifier comme ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim plg As Range
Set plg = Range("B6:B10") ' <== Par exemple, tu mets la plage que tu veux
If Not Intersect(Target, plg) Is Nothing Then Target.Offset(0, 1).Resize(1, 2) = ""
End Sub