Bonjour Sanctume, le forum,
Salut 3GB,
Un essai.....sur le même principe que ton post précédent....https://forum.excel-pratique.com/excel/vba-copie-de-donnees-d-une-feuille-a-une-autre-151679
Sub Bouton1_Cliquer()
Dim tablo, tabloR(), k%, c
tablo = Sheets("Feuil1").Range("A1").CurrentRegion
k = 0
For i = 1 To UBound(tablo, 1)
c = Split(tablo(i, 1), "-")
If c(UBound(c)) <= 17 Then
ReDim Preserve tabloR(1 To 2, 1 To k + 1)
tabloR(1, 1 + k) = tablo(i, 1)
tabloR(2, 1 + k) = tablo(i, 2)
k = k + 1
End If
Next i
With Sheets("recopie")
.Range("A1").CurrentRegion.ClearContents
On Error Resume Next
.Range("A1").Resize(UBound(tabloR, 2), 2) = Application.Transpose(tabloR)
.Activate
End With
End Sub
Cordialement,