'adaptation d 'un code de feu RENAUDER
'https://www.excel-downloads.com/threads/reinitialiser-un-controle-activex-dans-une-feuille.133175/
Private Sub Worksheet_Activate()
With Sheets("Choix de concentration").ComboBox1
If .ListCount <> Sheets("Domain").Range("Santé").Rows.Count Then
.ListFillRange = Sheets("domain").Name & "!" & Sheets("Domain").Range("Santé").Address
.ListRows = .ListCount
End If
End With
End Sub