Re,
Cela ne fonctionne pas, je pense faire un truc de travers... Même en supprimant les nombres des adresses aucun résultat. Je te donne mon code. Il faudrait simplement comprendre ce qui ne va pas avec et après rédiger une petite macro qui permet de supprimer les nombre des adresses pour pouvoir utiliser "InStr"
Désolé
Sub adresse()
Dim ws As Worksheet
Dim ws1 As Worksheet
Set ws = Sheets("quartien ariane")
Set ws1 = Sheets("adresse")
For i = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row
If Not InStr(1, ws1.Cells(i, 1), ws.Cells(j, 1), 1) = 0 Then
ws1.Cells(i, 2) = Oui
End If
Next j
Next i
End Sub