Sub vueEnsemble()
Dim onglet As String
onglet = Sheets(1).Cells(1, 1).Value
For ligne = 1 To 31
ligne1 = ligne + 2
For col = 1 To 12
col1 = col + 9
'COMPTE LE NBRE DE RETOURS A LA LIGNE DANS LA CELLULE (+1 à la fin pour la 1ère ligne)
' Application.WorksheetFunction = appele une fonction Excel
nbligne = Len(Worksheets(onglet).Cells(ligne, col).Value) - Len(Application.WorksheetFunction.Substitute(Worksheets(onglet).Cells(ligne, col), Chr(10), ""))
' jours travaillés
If Worksheets(onglet).Cells(ligne, col).Value <> "" And Worksheets(onglet).Cells(ligne, col).Value <> "Férié" Then
Sheets(1).Cells(ligne1, col1).Value = nbligne + 1
End If
' jours fériés
If Worksheets(onglet).Cells(ligne, col).Value = "Férié" Then
Sheets(1).Cells(ligne1, col1).Value = "Férié"
Sheets(1).Cells(ligne1, col1).Font.ColorIndex = 1
Sheets(1).Cells(ligne1, col1).Interior.ColorIndex = 40
End If
Next col
Next ligne
End Sub