Mise en forme conditionnelle dans un tableau

Bonjour je rencontre un problème pour réaliser deux questions de mon dst de vba je suis un débutant l' énoncé est le suivant

Ecrire une procédure (type Sub) vous permettant de transformer la 2ème colonne (A) en mettant un fond rouge, lettre blanche pour tous les montants < 0, pour ainsi avoir la colonne en (B) du tableau de droite. Rappel : RGB(255, 0, 0) à rouge, RGB(255, 255, 255)à blanc. (Nb : c'est le même tableau, avant et après). Nombre de lignes inconnu. Vous devez utiliser Range() )

Pour cette question j'ai écrit ça pour le moment ub test()

Dim a As Range

Set a = Range("B1").EntireColumn

With a.FormatConditions

Add Type:=xlCellValue,Formula1:=<0

End Sub

La deuxième question est Sur l'exercice précédent, créez une seul procédure SUB, permettant d'afficher dans des boites de message - le nombre d'écritures avec un montant négatif (1 boite) - La moyenne des montants positifs, en € (1 autre boite) Dans les 2 cas, le nombre de lignes est inconnu . Je suis vraiment perdu si quelqu'un peut me guider ou me montrer comment faire je lui en serait reconnaissant .