Sub test()
Dim F1, F2 As Worksheet
Set F1 = Worksheets("Feuil1")
Set F2 = Worksheets("Feuil2")
Dim Tf1, Tf2 As Variant
Tf1 = F1.Range(F1.Cells(1, 3), F1.Cells(F1.Cells(65536, 3).End(xlUp).Row, 3))
Tf2 = F2.Range(F2.Cells(1, 1), F2.Cells(F2.Cells(65536, 1).End(xlUp).Row, 1))
ReDim Preserve Tf2(LBound(Tf2, 1) To UBound(Tf2, 1), LBound(Tf2, 2) To 2)
Dim Flag As String: Flag = "Vrai"
For i = LBound(Tf1, 1) To UBound(Tf1, 1)
For j = LBound(Tf1, 1) To UBound(Tf1, 1)
If Tf1(i, 1) = Tf2(j, 1) Then
Tf2(j, 2) = Flag
End If
Next j
Next i
Dim Tnews() As String
ReDim Tnews(1 To 1)
For i = LBound(Tf2, 1) To UBound(Tf2, 1)
If Tf2(i, 1) <> Empty And Tf2(i, 2) = Empty Then
Tnews(UBound(Tnews)) = Tf2(i, 1)
ReDim Preserve Tnews(1 To UBound(Tnews) + 1)
End If
Next i
ReDim Preserve Tnews(1 To UBound(Tnews) - 1)
With F1.Cells(F1.Cells(65536, 3).End(xlUp).Row + 1, 3).Resize(UBound(Tnews))
.Resize(UBound(Tnews)) = Application.Transpose(Tnews)
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic
.Interior.Color = 13434879
.Interior.TintAndShade = 0
.Interior.PatternTintAndShade = 0
.Font.Color = -4165632
.Font.TintAndShade = 0
End With
End Sub