bonsoir,
ci dessous proposition recopie en colonne L de feuil2 les cellules avec samedi: on ne boucle que sur les 'samedi' et on utilise pas 'select' (avec 39000 lignes, t'es pas arrivé...)
à compléter avec ton inputbox de sélection de feuille
Dim lig As Long, fin As Long, cptr As Long
Dim liste As Collection
Set liste = New Collection
lig = 1
fin = Application.CountA(Range('L:L'))
Do Until lig = fin
On Error Resume Next
lig = Columns(12).Find('samedi', Cells(lig, 12), xlPart).Row
If Err.Number > 0 Then
Exit Do
End If
liste.Add Cells(lig, 12).Value
Loop
Set sht1 = Worksheets('feuil1')
Set sht2 = Worksheets('feuil2')
With sht2
.Cells(1, 12) = sht1.Cells(1, 12)
cptr = 1
fin = liste.Count
While cptr <= fin
.Cells(cptr + 1, 12) = liste(cptr)
cptr = cptr + 1
Wend
End With
Set liste = Nothing