Private Sub ComboBox1_Change() 'au changement dans la ComboBox1
If Me.ComboBox1.Value = "" Then 'condition : si la ComboBox1 est effacée
Me.TextBox1.Value = "" 'vide la TextBox1
Me.TextBox2.Value = "" 'vide la TextBox1
Exit Sub 'sort de la procédure
End If 'fin de la condition
Me.TextBox1.Value = OD.Cells(Me.ComboBox1.ListIndex + 2, 2).Value 'récupère le nom
Me.TextBox2.Value = OD.Cells(Me.ComboBox1.ListIndex + 2, 3).Value 'récupère le lieu
CD.Close 'ferme le classeur de données CD (si tu as encore besoin recupérer des données, tu le laisse ouvert, tu le fermeras à la fin...)
End Sub