PB : VBA fichier intranet Fermé

Question

Bonjour, 

Je suis debutante en VBA j'ai pratiqué un peu en cours mais pas plus. Je voudrais trier un base de donnée que j'extrait d'intranet. Je vous expliquer, ma base de donnée est sur une base intranet quand je l'extrait elle se me automatiquement dans excel. 
Je voudrais supprimer a chaque fois que j'extrait une base toutes les lignes qui commence par un certains mots pas exemple "mot 447". Je voudrais pouvoir le faire a chaque fois que j'exporte une base, sauf qu'elle n'ont pas toutes le meme nom, alors comment faire pour que cela se fasse automatiquement sans changer de nom ?

Mon code, bien aider grace à d'autre forum : 
Sub test()
    Dim Rg As Range, Nb As Long, g As Range
    With Worksheets("Extract - 20120406-160205")
    Set Rg = .Range("A:A")
    Nb = Rg.Rows.Count
    End With
    For A = Nb To 1 Step -1
    Set g = Rg.Rows(A).Find(What:="*mot 447*", LookAt:=xlPart)
    If Not g Is Nothing Then
    Rg.Rows(A).Delete
    End If
    Next
End Sub

Ce qui est en gras c'est ce qui change à chaque base.

deuxieme question, dans ma base les ligne que je veux supprimer sont fusionner dans une première colonne et apres non comment faire qu'elle soit aussi supprimé quand je fais mon trie ?

Je sais pas j'ai ete compréhensible. 
J'espere avoir quelques conseils.
MERCI

aude229 · Answer

J'oubliais pour supprimer les fusions j'ai fais un enregistrement de macro :

Sub Macro1()

    Columns("A:Y").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 1
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 1
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 1
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 1
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 1
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 1
    End With
    Range("D20").Select
End Sub
 mais du coup le titre d'une ligne ne se met pas dans toutes les colonne juste dans la première fusionner.

aude229 · Answer

S'il vous plait, j'ai vraiment besoin d'une piste ou d'une idée, d'une solution, je m'en sort vraiment pas toute seule !!