Extraire les données d'un tableau dans une nouvelle feuille par critères

Bonjour,

Encore Merci !

Cdlt

Encore une fois Merci de votre aide !

Cdlt

Bonjour,

Je reviens sur ce sujet car j'ai un legé problème. Je suis débutante sur VBA et j'ai beaucoup de mal même si j'aime ça. ( merci pour ce code c'est vous qui me l'avez donné)

rivate Sub ComB1_Click()
Dim i%
Dim WS() As Variant
Dim VAL() As Variant

Sheets("Source").Unprotect Password:="3579"
'Définition des variables dans l'ordre dans le tableau WS
WS = Array("Méthodes de Maintenance", "Garage", "Maintenance Centrale", "1er Transformation", "2ème Transformation", "3ème et 4ème Transformation", "Saviel", "Elect")
'Définition des variables dans le même ordre dans le tableau VAL
VAL = Array("MMaint", "Garage", "MCent", "1erTransfo", "2emeTransfo", "3&4emeTransfo", "Sav", "Elec")
'Boucle entre le plus petit index et le plus grand du tableau WS (donc i = 0 à 5 ici)
For i = LBound(WS) To UBound(WS)
'Quand la valeur de la combo box est rencontrée dans le tableau
    If Me.ComboBox1.Value = WS(i) Then
    'Reprend l'indice i, regarde la valeur associée dans le tableau VAL
    'et y place la valeur dans la variable WS_DEST
        WS_DEST = VAL(i)
        'Si pas rencontré alors continue
        Exit For
    End If
'Passe à la valeur suivante de i (donc valeur suivante du tableau WS
Next i
' Si WS_DEST est vide alors affiche message car valeur non trouvée dans WS.
If WS_DEST = "" Then MsgBox "Atelier inexistant dans le tableau": Exit Sub
With Worksheets("Source")
.[A2].CurrentRegion.AutoFilter 1, Me.ComboBox1.Value
    If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1 = 0 Then
        .AutoFilterMode = False
        MsgBox "Aucune ligne à extraire", vbCritical
        Exit Sub
        Else
        .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy
        Worksheets(WS_DEST).[A1].PasteSpecial xlPasteValues
        .AutoFilterMode = False
        MsgBox "Sauvegarde terminée", vbInformation
    End If
    .AutoFilterMode = False
End With

Sheets("Source").Protect Password:="3579"

J'utilise ce code et il fonctionne super bien ! mais j'ai ajouté une ligne à mon tableau je vous montre :

La ligne 1 a été ajouter.

Lorsque je n'écris rien dans cette cellule A1 mon code marche très bien ! Normal.

Mais lorsque j'écris dans cette cellule, mon code ne fonctionne plus. J'ai essayé de le modifier, mais aucune de mes modification ne m'a apportées la solution.

Je viens solliciter votre aide. Merci d'avance !

Cdlt