Dim NbTOTO As Integer
'
NbTOTO = WorksheetFunction.CountIf(Range('A:A'), Target.Value)
'
Select Case NbTOTO
Case 2 To 9
Target = Right(Target.Value, 1, Len(Target.Value) - 2) & '-' & NbTOTO
Case 10 To 99
Target = Right(Target.Value, 1, Len(Target.Value) - 3) & '-' & NbTOTO
Case 100 To 999
Target = Right(Target.Value, 1, Len(Target.Value) - 4) & '-' & NbTOTO
Case Else
MsgBox 'Ras le bol des TOTOs !!!'
End Select