Sub NombredeCellulesvertes()
Dim Lg As Integer, Total
For Lg = 9 To 12
Total = 0
For Each Cel In Range("D" & Lg & ":AH" & Lg)
If Cel.Interior.ColorIndex = 4 Then Total = Total + Cel.Count
Next
Range("AI" & Lg) = Total
Next
Lg = Range("C16:C27").Find(Range("D5").Value, LookIn:=xlValues).Row
Range("D" & Lg) = Range("AJ14")
End Sub