Bonjour
Modifies ta macro et essayes
Sub Macro12()
'
' Macro12 Macro
' loto-extraire
'
'
Dim i&, fin&, aa, bb, j&, a&
With Sheets("loto")
fin = .Range("A" & Rows.Count).End(xlUp).Row
aa = .Range("A2:H" & fin)
End With
j = 1
ReDim bb(UBound(aa, 2), j)
For i = 1 To UBound(aa) - 1
If aa(i + 1, 7) = 1 Then
ReDim Preserve bb(UBound(aa, 2), j)
For a = 1 To UBound(aa, 2) - 3
bb(a, j) = aa(i, a)
Next a
j = j + 1
End If
Next i
1 Sheets("loto").Range("J13").Resize(UBound(bb, 2), UBound(bb)) = Application.Transpose(bb)
Range("P5").Select
End Sub