' Initialise CobValeur
Set Plage = Sheets("Base").Range("A1:A" & Der)
With CobValeur
.Clear
For Each Cel In Plage
If Cel & Cel(1, 2) = TxbPays.Text & CobAnnee Then
If Cel(1, 3) <> "" Then
.AddItem "1c"
End If
If Cel(1, 4) <> "" Then
.AddItem "2c"
End If
If Cel(1, 5) <> "" Then
.AddItem "5c"
End If
If Cel(1, 6) <> "" Then
.AddItem "10c"
End If
If Cel(1, 7) <> "" Then
.AddItem "20c"
End If
If Cel(1, 8) <> "" Then
.AddItem "50c"
End If
If Cel(1, 9) <> "" Then
.AddItem "1€"
End If
If Cel(1, 10) <> "" Then
.AddItem "2€"
End If
If Cel(1, 11) <> "" Then
.AddItem "2€ C"
End If
End If
Next Cel
If .ListCount > 0 Then .ListIndex = -1
End With