Pierre,
Merci beaucoup pour ce que tu as apporté (merci à h2so4 & GGautier pour l'aide sur la renumérotation automatique)
Le fichier final est trop lourd pour le poster ici, je remet donc le code créé par h2so4 à mettre sur la feuille Data
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
dl = Cells(Rows.Count, 1).End(xlUp).Row
Set plage = Range("A1").Resize(dl)
Set re = plage.Find(Target.Value, lookat:=xlWhole)
If Not re Is Nothing Then
If re.Address = Target.Address Then Set re = plage.FindNext(re)
If Not re Is Nothing Then re.Value = re.Value + 0.1
End If
Range("A1").Resize(dl, 15).Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlYes
For i = 2 To dl
Cells(i, 1) = i - 1
Next i
Application.EnableEvents = True
End Sub
Merci à tous
A bientôt