VBA Excel 2013 : Selectionner les cellules contenant "unedonnée"

Sub ok()
Dim ligne As Long, lifin As Long
With Sheets("feuille1")
lifin = .Range("A" & Rows.Count).End(xlDown).Row
  For ligne = 1 To lifin
    If InStr(1, .Range("A" & ligne).Value, "410") > 0 Then .Range("A" & ligne).Value = "FIN"
  Next ligne
End With
End Sub

Sub ok2()
Dim ligne As Long, lifin As Long
With Sheets("feuille1")
lifin = .Range("A" & Rows.Count).End(xlDown).Row
  For ligne = 1 To lifin
    If Left(.Range("A" & ligne).Value, 3) = "410" Then .Range("A" & ligne).Value = "FIN"
  Next ligne
End With
End Sub

Option Explicit
Option Base 1

Sub xxx()
Dim Derlig As Long, T_in, T_out, Cptr As Long

    Application.ScreenUpdating = False

    With Sheets(1)
        Derlig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
        T_in = Range("A1:A" & Derlig)
        ReDim T_out(UBound(T_in), 1)

        For Cptr = 1 To UBound(T_in)
            If T_in(Cptr, 1) Like "*" & "410" & "*" Then T_out(Cptr, 1) = "FIN"
            If T_in(Cptr, 1) Like "*" & "434" & "*" Then T_out(Cptr, 1) = "AVENIR"
            If T_in(Cptr, 1) Like "*" & "460" & "*" Then T_out(Cptr, 1) = "EN COURS"
        Next

    End With
    Range("B1").Resize(UBound(T_in), 1) = T_out
End Sub