Rapporter cellules non vides de plusieurs feuilles dans une seule

Bonsoir,

Voici un code qui permettrait de créer un récapitulatif

Sub actualiser()
Dim ws, recap As Object
Dim lig, i As Long
Set recap = Worksheets("Récapitulatif Annuel")

'suppression de la feuille récap
recap.Range("A2:D" & Range("A65536").End(xlUp).Row + 4).ClearContents
lig = 2

'ajout des informations de chaque feuille
For Each ws In Worksheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre"))
    For i = 2 To ws.Range("A65536").End(xlUp).Row
    If ws.Range("A" & i) <> "" Then
    'ajout date
    ws.Range("A" & i).Copy recap.Range("B" & lig)
    ws.Range("C" & i & ":D" & i).Copy recap.Range("C" & lig)
    lig = lig + 1
    End If
    Next i
Next ws

'ajout des totaux
recap.Range("B" & lig) = "Total"
recap.Range("C" & lig).FormulaR1C1 = "=SUM(R2C3:R[-1]C)"
recap.Range("D" & lig).FormulaR1C1 = "=SUM(R2C4:R[-1]C)"
recap.Range("B" & lig + 1) = "Moyenne"
recap.Range("C" & lig + 1).FormulaR1C1 = "=AVERAGE(R2C3:R[-2]C)"
recap.Range("D" & lig + 1).FormulaR1C1 = "=AVERAGE(R2C4:R[-2]C)"
recap.Range("B" & lig + 2) = "EcartType"
recap.Range("C" & lig + 2).FormulaR1C1 = "=STDEV(R2C3:R[-3]C)"
recap.Range("D" & lig + 2).FormulaR1C1 = "=STDEV(R2C4:R[-3]C)"
recap.Range("C" & lig & ":D" & lig + 2).Style = "Comma"
End Sub

Et ci joint le fichier en question actualisé
https://www.cjoint.com/c/HKCuK6UPtzN

Bonne fin de journée

Jc

Petit ajustement la partie suppression de la feuille récap, code à remplacer par :

'suppression de la feuille récap
recap.Range("A2:D" & Range("B65536").End(xlUp).Row + 4).ClearContents
lig = 2

Merci beaucoup,
si je comprends bien c'est code VBA ? Une solution avec les formules classiques de EXCEL serait trop compliquée ?
Je n'ai pas pu ouvrir le fichier actualisé, excel me dit que l'extension ou le formt ne sont pas bons, est-ce du à ma version de Excel(2007) ?

En tout cas merci beaucoup pour votre temps et votre aide

C'est effectivement un code VBA car en formule pour rechercher sur 12 feuilles à la suite ça me parait vraiment compliqué et lourd à mettre place (si tant est que ce soit possible... perso je n'ai pas les compétences pour t'aider sur un tel projet en formules).
Pour ouvrir le lien, sur le site cjoint clique sur enregistrer le fichier avant de l'ouvrir et dans son emplacement vérifie que l'extension du fichier est bien ".xlsm" si ce n'est pas le cas modifie la manuellement avant de l'ouvrir en renommant le fichier car il arrive qu'avec cjoint les extensions soient modifiées.

Jc