XL 2010 recherche et modification plage de données vba

Private Sub CommandButton1_Click()
Dim dat, tablo, i&
dat = [F3]
With Sheets("Feuil1")
    tablo = .Range("A1", .UsedRange).Resize(, 6) 'matrice, plus rapide
    For i = 1 To UBound(tablo) - 2
        If tablo(i, 6) = dat And tablo(i + 2, 1) = "Mois" Then Exit For
    Next
    If i = UBound(tablo) - 1 Then MsgBox "Date non trouvée !", 48: Exit Sub
    .Cells(i + 2, 1).CurrentRegion.EntireRow.Delete 'RAZ
    .Rows(i + 2).Resize([A5].CurrentRegion.Rows.Count).Insert 'insère des lignes vides
    [A5].CurrentRegion.EntireRow.Copy .Rows(i + 2) 'copier-coller
    .Visible = xlSheetVisible 'au cas où...
    Application.Goto .Cells(i, 1), True 'cadrage
    .Cells(i, 6).Select
End With
End Sub