Private Sub Worksheet_Activate()
Dim i&, j&, nvide&
Application.ScreenUpdating = False
Cells.Clear 'RAZ
Feuil1.UsedRange.Copy [B1]
For i = Me.UsedRange.Rows.Count To 1 Step -1
If Cells(i, 2) Like "Course*" Then
j = [B:B].Find("*", Cells(i, 2), xlValues, , , xlPrevious).Row
If j < i Then
nvide = i - j - 1
If nvide > 4 Then
Rows(j + 1).Resize(nvide - 4).Delete
ElseIf nvide < 4 Then
Rows(j + 1).Resize(4 - nvide).Insert
End If
Rows(j + 1).Resize(4).Clear
i = j
End If
End If
Next
'---pour le dernier tableau---
j = [B:B].Find("*", , xlValues, , , xlPrevious).Row
Rows(j + 1 & ":" & Rows.Count).Delete
With Me.UsedRange: End With 'actualise les barres de défilement
End Sub