Private Sub CommandButton1_Click()
' En premier lieu effacement du contenu de la feuille2
Worksheets("Feuil2").UsedRange.ClearContents
' En deuxième: Copie des travaux répertiorés dans la feuille3
For i = 4 To Worksheets("Feuil3").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Feuil2").Cells(i - 2, 1).Value = Worksheets("Feuil3").Cells(i, 1).Value
Next i
' Et par la suite récupération du nombre de prénoms
For i = 4 To Worksheets("Feuil3").Cells(Rows.Count, 1).End(xlUp).Row
N = 0
For j = 2 To Worksheets("Feuil3").Columns.Count
If Not IsEmpty(Worksheets("Feuil3").Cells(i, j).Value) Then
N = N + 1
Worksheets("Feuil2").Cells(Worksheets("Feuil2").Cells.FindNext(Worksheets("Feuil2").Cells.Find _
(Worksheets("Feuil3").Cells(i, 1).Value)).Row, 2) = N
End If
Next j
Next i
End Sub