Incrémenter les jour de semaine sauf le dimanche

Bonjour

je souhaite faire macro qui ajoute un jour a la cellule B1 sauf que dans le jour samedi ajoute 2 jour pour éviter le dimanche

j'ai essayé macro suivant mais ça marche pas

Sub Macro1()
Dim ctr As String
    ctr = Application.Text(Range("B1"), "dddd")
Range("b1").Value = Range("b1").Value + 1
If ctr = "Sunday" Then
    Range("b1").Value = Range("b1").Value + 1
End If
End Sub 

Svp quelle est l’erreur dans macro

bonjour,

correction, non testée (test sur samedi )

If ctr = "Saturday" Then
    Range("b1").Value = Range("b1").Value + 1
End If

merci beaucoup