Copier une cellule de chaque feuilles existante dans une feuille recap

Bonjour à tous,

Mon problème du jour est celui ci:

Je cherche à copier dans un tableau d'une feuille (Nommée "récap") la cellule "total d'heure" (nommée "janvier", "Février" ....) lorsque la feuille existe. Cela fonctionne à moitié avec ma macro, cependant lorsque le nom d'une feuille n'existe pas excel m'ouvre une fenêtre m'invitant à chercher un fichier.

Je suis intéressé à toute suggestion me permettant d'améliorer mon approche et réduire mon code.

Merci à vous, au plaisir de vous lire et d'échanger avec vous.

Sub Update_Hours()
'
' Update_Hours Macro
'
'
    Range("B9").Select
    ActiveCell.FormulaR1C1 = "=IF(Janvier!R41C[8]="""",""-"",Janvier!R41C[8])"
    Range("B10").Select
    ActiveCell.FormulaR1C1 = "=IF(Février!R41C[8]="""",""-"",Février!R41C[8])"
    Range("B11").Select
    ActiveCell.FormulaR1C1 = "=IF(Mars!R41C[8]="""",""-"",Mars!R41C[8])"
    Range("B12").Select
    ActiveCell.FormulaR1C1 = "=IF(Avril!R41C[8]="""",""-"",Avril!R41C[8])"
    Range("B13").Select
    ActiveCell.FormulaR1C1 = "=IF(Mai!R41C[8]="""",""-"",Mai!R41C[8])"
    Range("B14").Select
    ActiveCell.FormulaR1C1 = "=IF(Juin!R41C[8]="""",""-"",Juin!R41C[8])"
    Range("B15").Select
    ActiveCell.FormulaR1C1 = "=IF(Juillet!R41C[8]="""",""-"",juillet!R41C[8])"
    Range("B16").Select
    ActiveCell.FormulaR1C1 = "=IF(Aout!R41C[8]="""",""-"",Aout!R41C[8])"
    Range("B17").Select
    ActiveCell.FormulaR1C1 = "=IF(Septembre!R41C[8]="""",""-"",Septembre!R41C[8])"
    Range("B18").Select
    ActiveCell.FormulaR1C1 = "=IF(Octobre!R41C[8]="""",""-"",Octobre!R41C[8])"
    Range("B19").Select
    ActiveCell.FormulaR1C1 = "=IF(Novembre!R41C[8]="""",""-"",Novembre!R41C[8])"
    Range("B20").Select
    ActiveCell.FormulaR1C1 = "=IF(Décembre!R41C[8]="""",""-"",Décembre!R41C[8])"
    Selection.OnAction = "Update_Hours"
    Range("D17").Select
    Selection.OnAction = "Update_Hours"
End Sub

Salut,

Une solution par formule sans passer par du VBA :

Girodo,