Insérer une ligne

Bonjour,

Je voudrais insérer une ligne en dessous de la ligne contenant "30/05/2016" en colonne B, mais ma macro ne marche visiblement pas... est-ce que quelqu'un pourrait m'aider SVP ?

Voici ma macro :

Sub ADD()
Dim Ws As Worksheet
Dim j As Long
    Application.ScreenUpdating = False
    For Each Ws In ActiveWorkbook.Worksheets
        If Ws.Name <> " Accueil" And Ws.Name <> " Feuil1" And Ws.Name <> " MODELE" Then
          For j = 1 To Ws.Range("A" & Rows.Count).End(xlUp).Row
            If UCase(Ws.Range("B" & j)) Like "30/05/2016" Then
               Cells(j + 1, 1).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
            End If
          Next j
        End If
    Next Ws
End Sub

Merci d'avance !

Bonjour,

Désolée!

Un exemple d'onglet que j'ai en pj.

Merci d'avance

Bonsoir,

Sub InsérerLigne()
    Dim Ws As Worksheet, d As Date, j&
    d = DateSerial(2016, 5, 30)
    Application.ScreenUpdating = False
    For Each Ws In ActiveWorkbook.Worksheets
        If Ws.Name <> " Accueil" And Ws.Name <> "Feuil1" And Ws.Name <> "MODELE" Then
            With Ws
                For j = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
                    If .Range("B" & j).Value = d Then .Rows(j + 1).Insert
                Next j
            End With
        End If
    Next Ws
    Application.ScreenUpdating = True
End Sub

NB- Jamais judicieux d'utiliser noms de méthodes ou propriétés VBA comme noms de variables ou de procédures...

Cordialement.

Merci beaucoup !!!

Bonne journée