vba probleme de condition

Sub supprimerL_QuandClic()
    Dim n As Integer
    'Dim compte As Integer
        n = 4
        If Range("F4") = FAUX And Range("F5") = FAUX And Range("F6") = FAUX And Range("F7") = FAUX And Range("F8") = FAUX And Range("F9") = FAUX And Range("F10") = FAUX And Range("F11") = FAUX And Range("F12") = FAUX Then
            MsgBox "Sélectionner au moins un élément"
            Else
            Do
                'MsgBox (Cells(4, 6))
                If Cells(n, 6) = VRAI Then
                    For compteur = 2 To 5
                        Cells(n, compteur) = ""
                    Next compteur
                End If
                n = n + 1
            Loop Until n = 12
        End If
        
End Sub