Private Sub CHOIX1()
.....................
With ThisWorkbook.Worksheets("datas1")
Select case .Range("B65536").End(xlUp).Row
case 2
'écrire le code pour une cellule
mondico.Add .Range("D2").Value, .Range("D2").Value
case else
For Each Cell In Plage
If Not mondico.Exists(Cell.Value) Then mondico.Add Cell.Value, Cell.Value
Next Cell
end select
...................