Formulaire intéractif de saisie de données et de consultation... très urgent, heeelp

Deux problèmes relevés sur les moyennes :

1) Dans le fichier, dans la colonne Age de 2010, deux cellules n'étaient pas alimentées par formule (vérifiez-le avant d'ouvrir ce fichier) :je ne vois pas pourquoi ça pose problème.

2) Bien que la définition des plages Age2009, Sexe2009 et les autres soit exacte, la formule de calcul de la moyenne "déconne" : elle ne prend pas la première et la dernière ligne. Si le calcul concerne un sexe qui se trouve à l'intérieur des limites, c'est bon.

Il faut, et c'est important, valider la formule par : CTRL+MAJ+Entrée (simultanément)

Cliquez pour agrandir...

Sub ChercheFiche(sText As String, Col As String)
Dim rWs As Worksheet, rLign As Long, rRng As Range, C As Range
Dim Adresse As String
Application.Cursor = xlWait
For Each rWs In ActiveWorkbook.Sheets
If rWs.Name Like "20*" Then
With rWs
rLign = .Range(Col & "65536").End(xlUp).Row
Set rRng = .Range(Col & "2:" & Col & rLign)
With rRng
Set C = .Find(sText, , xlPart)
If Not C Is Nothing Then
Adresse = C.Address
Do
With ListBox1
.AddItem rWs.Cells(C.Row, 1)
.List(.ListCount - 1, 1) = rWs.Cells(C.Row, 2)
.List(.ListCount - 1, 2) = rWs.Cells(C.Row, 3)
.List(.ListCount - 1, 3) = rWs.Name
.List(.ListCount - 1, 4) = C.Row
End With
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
End With
End If
Next
Set C = Nothing
Application.Cursor = xlDefault

Cliquez pour agrandir...