Compilation

Sub Macro1()
Dim o As Worksheet 'déclare la variable o (Onglet)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim cj As Integer 'déclare la variable cj (Cellule Jaunes)
Dim cjn As Integer 'déclare la variable cjn (Cellule Jaunes ayant un Nom)
Dim cjp As Integer 'déclare la variable cjp (Cellule Jaunes ayant Per, Personne ou vide)
 
For Each o In Sheets 'boucle 1 : sur tous les onglets du classeur
    If o.Name = "Compilation" Then GoTo suite 'si l'onglet se nome "Compilation" aller à l'étiquette "suite"
    For Each cel In o.UsedRange 'boucle 2 : sur toutes les cellules de la plage utilisée de l'onglet
        If cel.Interior.ColorIndex = 6 Then 'condition : si la couleur de la cellule est jaune
            cj = cj + 1 'incrémente la variable cj
            Select Case UCase(cel.Value) 'agit en fonction de la valeur de la cellule (convertie en majuscule)
                Case "", "PER", "PERSONNE" 'cas vide, PER ou PERSONNE
                    cjp = cjp + 1 'incrémentela variable cjp
                Case Else 'autres cas
                    cjn = cjn + 1 'incrémentela variable cjn
            End Select 'fin de l'action en fonction...
        End If 'fi de la condition
    Next cel 'prochaine cellule cel de la boucle 2
suite: 'étiquette
Next o 'prochain onglet dela boucle 1
 
With Sheets("Compilation") 'prend en compte l'onglet "Compilation"
    .Range("C4").Value = cj 'place cj en C4
    .Range("E4").Value = cjn 'place cjn en E4
    .Range("G4").Value = cjp 'place cjp en G4
End With
End Sub