Private Sub CommandButton2_Click()
Dim count, i As Integer
Dim cell As Range
On Error Resume Next
For i = 2 To 5
numLot = Cells(i, 1).Value
Call Module1.OuvrirFichier("D:\Dossier de lot\Compile\Lot " & numLot & " Compile.xls")
Workbooks("Lot " & numLot & " Compile.xls").Activate
count = 0
For Each cell In Worksheets("DL4").Range("B63:B82")
If Range(cell).Value = "N/A" Then
count = count + 1
End If
Next
MsgBox (count)
Next
MsgBox ("Tous les classeurs ont été ouverts")
End Sub