Bonsoir GUELLILA, le forum,
Pas sur d'avoir compris...si le but est de filtrer et de transférer les lignes filtrées....
Sub Bouton1_Cliquer()
Dim dl1 As Long, dl2 As Long
Application.ScreenUpdating = False
With Sheets("Feuil3")
dl2 = .Range("A" & Rows.Count).End(xlUp).Row + 1
If dl2 = 3 Then
Exit Sub
Else
.Range("A4:F" & dl2).ClearContents
dl2 = .Range("A" & Rows.Count).End(xlUp).Row + 1
End If
End With
With Sheets("Feuil4")
dl1 = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2:F" & dl1).AutoFilter field:=2, Criteria1:="SI2215.2"
.Range("A2:F" & dl1).AutoFilter field:=3, Criteria1:="SI2257.1"
.Range("A2:F" & dl1).SpecialCells(xlVisible).Copy Sheets("Feuil3").Range("A" & dl2)
If .FilterMode = True Then .ShowAllData
End With
Application.ScreenUpdating = True
End Sub
Cordialement,