Sub test()
Dim a(), Montab, Der As Long, i As Long, n As Long
Der = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
Montab = Sheets(1).Range("A1:C" & Der)
For i = 1 To Der
If Montab(i, 1) <> "111" And Montab(i, 2) = "" And Montab(i, 3) = "" Then
n = n + 1
ReDim Preserve a(1 To n)
a(n) = Montab(i, 1)
End If
Next i
Sheets(2).Range("A:A").ClearContents
Sheets(2).Range("A1").Resize(n) = Application.Transpose(a)
End Sub