Pourriez vous m'aider a faire fonctionner mon macro ?

Bonjour, je cherche a faire en sorte que dès qu'une valeur dépasse 5,5, elle repasse a zéro. Par exemple, 0+6=0,5. Et il faudrait également que les valeurs inférieurs a 0 passent a 5,5 exemple: 2-3=4,5

Voila mon code actuelle

Sub limite()
Range("A1:C5").Select

If ("A1") > 5.5 Then
A1 -5, 5
If ("A2") > 5.5 Then
A2 -5, 5
If ("A3") > 5.5 Then
A3 -5, 5
If ("B1") > 5.5 Then
B1 -5, 5
If ("B2") > 5.5 Then
B2 -5, 5
If ("B3") > 5.5 Then
B3 -5, 5
If ("C1") > 5.5 Then
C1 -5, 5
If ("C2") > 5.5 Then
C2 -5, 5
If ("C3") > 5.5 Then
C3 -5, 5
If ("D1") > 5.5 Then
D1 -5, 5
If ("D2") > 5.5 Then
D2 -5, 5
If ("D3") > 5.5 Then
D3 -5, 5
If ("E1") > 5.5 Then
E1 -5, 5

Loop

Je débute complètement en macro merci pour votre aide.

Bonjour à tous,

C'est ce que fait la formule

=mod(A2;5,5)