Sub HYB3()
Dim sh As Worksheet
Dim numbers: CompteurHYB = 0
Dim tabdata() As Variant
For Each sh In Sheets
If Left(sh.Name, 2) = "HYB" Then
tabdata = sh.Range("D2:G500").value
For i = LBound(tabdata, 1) To UBound(tabdata, 1)
trouve = False
For j = LBound(tabdata, 2) To UBound(tabdata, 2)
If tabdata(i, j) Like "*HYB*" Then
trouve = True
End If
Next j
CompteurHYB = CompteurHYB + IIf(trouve, 1, 0)
Next i
End If
End If
Next sh
Sheets("Results").Range("B2") = CompteurHYB / Sheets("RATI").Range("D4").Value
End Sub