Incompatibilité de type

Bon jour;

J'ai un problème avec ce code de type : (Incompatibilité de type)

Private Sub ToggleButton1_Click()

With ToggleButton1

If .Value = True Then

Columns("h:h,i:i").Hidden = True

ElseIf .Value = False Then

Columns("H:h,i:i").Hidden = False

End If

End With

End Sub

Bonjour,

Essaie ainsi :

Private Sub ToggleButton1_Click()
    With ToggleButton1
        If .Value = True Then
            .Caption = "Afficher"
            Me.Range("H:H,I:I").EntireColumn.Hidden = True
        Else
            .Caption = "Masquer"
            Me.Range("H:H,I:I").EntireColumn.Hidden = False
        End If
    End With
End Sub