Скрыть и показать определенные строки с изображением в качестве кнопки переключения

Question

Привет, мне нужна помощь с кодом VBA. Я пытаюсь скрыть пустые строки все время, показывая все ячейки, содержащие значение, когда кнопка была нажата, и затем скрываю все строки, когда кнопка нажимается второй раз.

Я думаю, кнопка переключения сделала бы это для меня, но я использую картинку. Я также хотел бы переключить изображение, которое я использую (стрелка вниз), на стрелку вверх, когда на него нажимают.

Sub Image1_Cliquer()

If Worksheets("Sommaire").Rows("7:18").Hidden = False Then

   Application.ActiveSheet.Rows("7:18").Hidden = True

Else

   Dim xRg As Range

   Application.ScreenUpdating = False

   For Each xRg In Range("K7:K18")

      If xRg.Value = "" Then

         xRg.EntireRow.Hidden = True

      Else

         xRg.EntireRow.Hidden = False

      End If

   Next xRg

   Application.ScreenUpdating = True

End If

End Sub

Этот код скрывает все пустые строки, но не скрывает все строки, когда мы нажимаем на кнопку во второй раз.

Спасибо