XL 2016 condition : si celulle vide alors 2 autres cellules doivent être vide dans tableau sur même ligne

Private Sub Worksheet_SelectionChange(ByVal c As Range)
    With Application: .EnableEvents = 0: .ScreenUpdating = 0: .Calculation = xlCalculationManual: End With
    For Each c In Range("B3:B12")
        If c <> "" And c.Offset(, 1) = "" Then c.Offset(0, 1).Select
        If c = "" Then c.Offset(, 1) = ""
        If c = "" Then c.Offset(, 2) = ""
    Next
    
    With Application: .EnableEvents = 1: .ScreenUpdating = 1: .Calculation = xlCalculationAutomatic: End With
End Sub