'-- On interprete le texte de la ComboBox3 en signes
' For iCtr = 0 To Me.ComboBox3.ListCount - 1
'If Me.ComboBox3.ListIndex(iCtr) = True Then
'-- L'élément 0 correspond à la troisième ligne dans la colonne U
If ComboBox3 <> "" Then .[N9] = .Range("U" & ComboBox3.ListIndex + 3)
'End If
' Next iCtr