Private Sub ok_Click()
Application.ScreenUpdating = False
nbligne = Sheets("Data").ListObjects(1).ListRows.Count + 1
countmod1open = 0
For i = 1 To numsemaine.Value
Sheets("Data").Select
For j = 2 To nbligne
If Cells(j, 6).Value = "SOA - Module 1" And Cells(j, 20).Value = "No" And Cells(j, 64).Value = 2012 And Cells(j, 65).Value = i Then
countmod1open = countmod1open + 1
End If
j = j + 1
Next
Sheets("Nb RNC par semaine").Select
Cells(2, i + 2).Value = countmod1open
i = i + 1
countmod1open = 0
Next
num_semaine.Hide
Application.ScreenUpdating = True
End Sub