Function CalculDateMoyenne(Target As Range) 'la target correspond à quoi? qu'ecris tu dans excel?: =CalculDateMoyenne(???)
Application.Volatile
Dim debut As Integer
Dim fin As Integer
Dim datemoyen As Double
Dim ref As Integer
Dim nbredate As Integer
Dim somme As Double
somme = 0
nbredate = 0
debut = ad 'c'est quoi ad?? ca vient d'ou?
fin = debut
ref = 13 'pour la colonne M
While Cells(debut, Target.Column) <> "Date de valeur" 'ici debut n'est pas initialisé.. et il est vide ou 0
'et cells(0,..) Excel n'aime pas
debut = debut - 1
Wend
debut = debut + 6
While Cells(fin + 9, Target.Column).Interior.Color = RGB(248, 248, 248) 'On rebondis de tableau en tableau jusqu'à tomber sur du gris
fin = fin + 9
Wend 'le wend manquant est peut etre plutot ici
For i = debut To fin Step 9
If Cells(i, ref) Then
nbredate = nbredate + 1
somme = somme + Cells(i, ref) 'bizarre comme calcul. ajouter des dates entre elles..
End If
Next i
If nbredate > 0 Then
'Saisie dans les bonne cases si il y a des affaires prises en compte: Ref-8 = Colonne D
Cells(debut - 15, ref - 8) = somme / nbredate 'moyenne de date???
Else
Cells(debut - 15, ref - 8) = "" 'Saisie dans les bonne cases
End If
End Function