Salut,
Voici un code à insérer que tu peux lié à ton bouton "Enregistrer Feuilles"
Sub Doublon()
Dim Plage As Range
Dim Cel As Range
With Worksheets("Feuil1")
'en colonne "A" à partir de A6
Set Plage = .Range(.Cells(6, 1), .Cells(.Rows.Count, 1).End(xlUp))
Plage.Interior.ColorIndex = xlNone
End With
For Each Cel In Plage
If Application.CountIf(Plage, Cel.Value) > 1 Then
MsgBox "Attention, la valeur '" & Cel.Value & "' est en doublon."
Cel.Interior.ColorIndex = 3
End If
Next Cel
If MsgBox("Voulez-vous lancer la macro ?", vbYesNo + vbQuestion, "Attention") = vbYes Then
'A adapter avec la macro lié au bouton que tu veux utiliser
Call Module19.Enregistrer_feuille_ROUTE
Else
Exit Sub
End If
End Sub
dit moi si cela te convient.
PS : Je ne sais pas si les macros de ton fichier original son identique, mais pense à renommer tes "Module XX", personnellement ça m'aide à me retrouver.
A plus,