Trouver une cellule dans une plage et la modifier si vide

Bonjour,
J'ai un fichier dans lequel je souhaite avoir le fonctionnement suivant

Au click d'un bouton, dans plusieurs plages distinctes :
- Si une seule cellule vide = interior.color = rouge
Else interior.color = verte.

Actuellement j'utilise
If IsEmpty(Range("A1")) Then
Range("A1").Interior.Color = RGB(250, 190, 190)
Else Range("A1").Interior.Color = RGB(198, 224, 180)
End If

Mais j'ai 50 cellules et je sens que ça bafouille un peu les 50 if-then-else-end if

Merci de votre aide