Sub essai(nom_feuille)
With Sheets(nom_feuille)
For k = 4 To 32
nb = 0
For j = 3 To .Range("A1").Value
Set fso = CreateObject("Scripting.FileSystemObject")
Set fFile = fso.OpenTextFile(.Range("B" & j).Value) 'adresses des fichiers
For i = 1 To 100 '(compteur de lignes)
On Error Resume Next
ligne = fFile.ReadLine
If Err.Number = 62 Then GoTo fin
On Error GoTo 0
If InStr(ligne, ", Alarme , " & .Range("D" & k).Value) <> 0 Then
nb = nb + 1
End If
Next i
fin:
Next j
.Range("E" & k).Value = nb
Next k
End With
End Sub
Sub essai1()
Call essai("Feuil1")
End Sub