Salut jiper,
je te propose une petite macro qui devrait te faire avancer dans ton problème.
Sub classement()
j = 2
l = 2
Sheets("feuil1" ).Select
Range("C2" ).Select
For i = 1 To Range("C65536" ).End(xlUp).Row
Range("C" & j).Select
If ActiveCell.Value = "1" Then
Range("A" & j & ":" & "B" & j).Select
Selection.Copy
Sheets("feuil2" ).Select
Range("A2" ).Select
line1:
If ActiveCell.Value = "" Then
ActiveSheet.Paste
Selection.Offset(1, 0).Select
Else
Selection.Offset(1, 0).Select
GoTo line1
End If
Else
Selection.Offset(1, 0).Select
End If
j = j + 1
Sheets("feuil1" ).Select
Next i
End Sub
Cette macro suppose que tes données de départ sont sur la feuille 1, et le résultat se trouvera en feuille 2.
Je suppose également que dans tes 2 feuilles, et dans chacunes de tes colonnes A, B et C, tu as un entête
@+