Private Sub CommandButton4_Click()
Sheets("tableau").Activate
Dim i As Integer
Columns("C:D").Select
Selection.ClearContents
i = Cells(12, 8)
Cells(i + 8, 3).Interior.ColorIndex = 2
Cells(i + 8, 4).Interior.ColorIndex = 2
i = 9
While Cells(i, 2) <> " "
i = i + 1
Wend
Cells(i - 1, 3) = "DERNIER"
Cells(i - 1, 4) = "POINT"
Cells(12, 8) = i - 9
Cells(13, 8) = Cells(i - 1, 1)
End Sub