J'ai trouver la solution à mon problème via une macro.
Code:
Sub test()
Set Tablo = CreateObject("Scripting.dictionary")
On Error Resume Next
For Each cell In Selection
Do
Err = 0
Tablo.Add cell.Value, cell.Value
If Err <> 0 Then
cell.Value = cell.Value + 1
End If
Loop Until Err = 0
Next cell
On Error GoTo 0
End Sub
Merci encore.
Pat