Sub Traite()
Dim Tourne As Long, Boucle As Long
Dim LigneFin1 As Long, LigneFin2 As Long
Dim Tempo As Variant, Tempo2 As Variant
Dim Decis As String
LigneFin1 = Sheets("Extraction").Range("B" & Rows.Count).End(xlUp).Row
LigneFin2 = Sheets("A enlever").Range("A" & Rows.Count).End(xlUp).Row
For Boucle = 2 To LigneFin1
For Tourne = 2 To LigneFin2
Tempo = Sheets("Extraction").Range("B" & Boucle)
Tempo2 = Sheets("A enlever").Range("A" & Tourne)
If InStr(1, Tempo2, "%") > 0 Then
If InStr(1, Tempo, Mid(Tempo2, 1, Len(Tempo2) - 1)) Then
Decis = "Non": Exit For
Else
Decis = "Oui" ': Exit For
End If
Else
If Tempo = Tempo2 Then
Decis = "Non": Exit For
Else
Decis = "Oui" ': Exit For
End If
End If
Next Tourne
Sheets("Extraction").Range("J" & Boucle) = Decis
Next Boucle
End Sub