Tableau d'augmentation de niveau [Résolu/Fermé]

Private Sub Worksheet_Change(ByVal Target As Range)
    'Si plusieurs cellules sont modifiées, on sort de la procédure
    If Target.Count > 1 Then Exit Sub
    'Si la cellule modifiée appartient à une des colonnes B, C, D, E ou F
    If Not Application.Intersect(Target, Columns("B:F")) Is Nothing Then
        'Si le nombre de "x" est égal à 5
        If Application.CountIf(Cells(Target.Row, 2).Resize(, 5), "x") = 5 Then
            'on désactive les évènements
            Application.EnableEvents = False
            'On renseigne la colonne G
            With Cells(Target.Row, 7)
                .Value = .Value + 1
                .NumberFormat = """Niveau ""0"
            End With
            'On efface la plage des "x"
            Cells(Target.Row, 2).Resize(, 5).ClearContents
            'on ré-active les évènements
            Application.EnableEvents = True
        End If
    End If
End Sub