Bonjour,
solution via une macro
Sub aargh()
Set ws = Sheets.Add
With Sheets("feuil1")
dl = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To dl
If .Cells(i, 2) = "" Then
t = .Cells(i, 1)
s = InStr(t, "Classe")
If s <> 0 Then
s1 = InStr(t, "juge")
c = Mid(t, s + 7, s1 - (s + 8))
Else
r = t
End If
Else
k = k + 1
ws.Cells(k, 1) = r
ws.Cells(k, 2) = c
.Cells(i, 1).Resize(1, 10).Copy ws.Cells(k, 3)
End If
Next i
End With
With ws.Cells(1, 1).Resize(k, 12)
.Borders.Weight = xlThin
.EntireColumn.AutoFit
End With
End Sub