Bonjour RLARCO,
Bonjour les Chefs CCM81, Eric,
ca faisait longtemps que je n'avais eu l'honneur de vous croiser :o)
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
Dans la colonne A il y a une liste de nombre comme "410258,410898,434256,434789,.." (a peu près 1000lignes comme ça et cela varie)
.Je voudrais lui dire : Selectionne dans la colonne A toutes les cellules contenant "410" change leurs valeurs par le texte "FIN"
Merci,