Bonsoir
S'il vous plait mon code fonctionne bien
Sub Extrait()
Dim Rng As Range, I As Integer, L As Integer, L1 As Integer, L2 As Integer
Dim Tbl As Variant
Application.ScreenUpdating = False
Set Rng = Range("E2:E" & Range("E65536").End(xlUp).Row)
Tbl = Array("chaise", "adaptable")
For I =...