merci de votre reponse, mais ce n"est pas ce que je recherche.
je joins le classeur 2 qu'avait fait gmb et qui correspond a ce que je recherche.
j"aimerais adapter ce code (ci dessous) a ma situation.
Option Explicit
Dim tablo, tabloAS(), TabloDP(), i&, j&, kDP&, kAS&
Sub Séparer()
tablo = Range("A2:J" & Range("A" & Rows.Count).End(xlUp).Row)
kDP = 1
kAS = 1
For i = 1 To UBound(tablo, 1)
If tablo(i, 8) = "Déjà présent" Then
ReDim Preserve TabloDP(1 To 9, 1 To kDP + 1)
For j = 1 To 7
TabloDP(j, kDP) = tablo(i, j)
Next j
For j = 9 To 10
TabloDP(j - 1, kDP) = tablo(i, j)
Next j
kDP = kDP + 1
ElseIf tablo(i, 8) = "A sortir" Then
ReDim Preserve tabloAS(1 To 9, 1 To kAS + 1)
For j = 1 To 7
tabloAS(j, kAS) = tablo(i, j)
Next j
For j = 9 To 10
tabloAS(j - 1, kAS) = tablo(i, j)
Next j
kAS = kAS + 1
End If
Next i
Sheets("GOLD").Range("A1").CurrentRegion.Offset(1, 0).ClearContents
Sheets("GOLD").Range("A2").Resize(UBound(tabloAS, 2), 9) = Application.Transpose(tabloAS)
Sheets("PLATINIUM").Range("A1").CurrentRegion.Offset(1, 0).ClearContents
Sheets("PLATINIUM").Range("A2").Resize(UBound(TabloDP, 2), 9) = Application.Transpose(TabloDP)
Sheets("AUTRES").Range("A1").CurrentRegion.Offset(1, 0).ClearContents
Sheets("AUTRES").Range("A2").Resize(UBound(TabloDP, 2), 9) = Application.Transpose(TabloDP)
MsgBox "Travail terminé."
End Sub