Bonjour,
remplace une partie de ton code comme ceci.
'Controle si déjà existant
With Sheets("Données")
For Each cell In .Range("B4:B" & .Range("B65536").End(xlUp).Row)
If cell = nomconverti And cell.Offset(0, 1).Value = preconverti Then
MsgBox "Existe déjà"
Exit Sub
End If
Next
Attention cependant, il faut que les caractères soient les mêmes d'un coté comme de l'autre. Pour cela il faudrait voir du coté de l'instruction UCASE.
Cordialement