bonjour à nouveau,
j'ai une 2e question :
dans une liste de noms, je souhaite faire une recherche pour savoir si un nom n'a pas déjà été inscrit, si oui, que la ligne se mette en couleur.
Sub Colorer_Doublons()
Dim vCell As Object
Selection.Sort key1:=ActiveCell, order1:=xlAscending, _
header:=xlGuess, MatchCase:=False, Orientation:=xlTopToBottom
For Each vCell In Selection
If vCell.Value = vCell.Offset(1, 0) Then
vCell.Font.ColorIndex = 3
End If
Next
Range("A1").Select
End Sub