Sub Bouton39_Cliquer()
Dim N As Integer
Dim N_new As Variant
Dim R_N_new As Variant
Dim msg As String
Do
N = InputBox((msg & Chr(10) & _
"Entrez un nouveau N° d'ordre : "), "Doublon")
'On crée le nouveau numéro
N_new = Sheets("SAISIE DU NUMERO").Range("N_doc") & "-" & WorksheetFunction.Text(N, "0000")
'Cherche le nouveau numéro
Set R_N_new = Sheets("LISTE").Range("F:F").Find(N_new, LookIn:=xlValues, lookat:=xlWhole)
Loop While Not R_N_new Is Nothing
End Sub