Recherche Dans Un Classeur

Re : Recherche Dans Un Classeur

bonjour Fredplongeur
'une petite démo

Sub parcours()
Dim cel As Range
Dim Plg() As Variant 'tableau avec résultat
Dim L As Integer 'index tableau

With Sheets("NomFeuille") 'à adapter NomFeuille
For Each cel In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
If cel <> "" Then
L = L + 1
ReDim Preserve Plg(1 To L) 'voir aide
Plg(L) = cel
End If
Next cel
'écrit en colonne d
For L = 1 To UBound(Plg, 1) 'voir aide
.Range("D" & L) = Plg(L)
Next L

End With

End Sub