Extraction avec macro, message d´erreur

Bonjour!

J´ai une matrice sur la première feuille comme suit:

Région----Vendeur---Rdv---Ventes---%.

Sur une autre feuille je veux extraire les données en fonction de la région. j´ai réussi á le faire á l´aide d´une macro et il m´affiche les résultats mais y´a un message qui s´affiche systématiquement: "The destination range is not large enough to accommodate all copies rows. Data below the destination range will be lost. Continue anyway". Le message indique que le champ de destination n´est pas assez large pour recevoir les lignes copiées. Lorsque je continue il m´affiche le resultat exact.

Je sollicite votre aide pour enlever ce message. Merci pour votre aide.

Voici le code VB de la macro (je m´y connais pas en VB):

Sub Uppda()
'
' Uppda Macro
' Macro recorded 16/6/2009 by AA
'

'
    Range("A16:P55").Select
    ActiveWindow.SmallScroll Down:=-45
    Selection.ClearContents
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Interior.ColorIndex = xlNone
    Range("A16").Select
    ActiveCell.FormulaR1C1 = "a"
    Range("A17").Select
    Range("ListK1").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A1:A2"), CopyToRange:=Range("A15:P16"), Unique:=False
End Sub

Bonsoir,

l'erreur provient de ta zone d'extraction, qui ne comporte que deux lignes.. Range("A15:P16")

Remplace par ce code :

Sub Uppda()
    Range("A16:P100").Clear
    Range("A16").Value = "a"
    Range("ListK1").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A1:A2"), CopyToRange:=Range("A15:P15"), Unique:=False
End Sub

Bien qu'inscrire "a" dans la cellule A16??????

Si tes en-têtes sont dans la ligne 16, Remplace par A16:P16

Merci Cousinhub pour ton aide. Le probléme est résolu.