Bonsoir a tous
actuellement j ai un code qui fonctionne tres bien qui me permet de trouver un mots dans une colonne et extrait toute la ligne sur une feuille 2. jusqu'a c'est parfait
Par contre c'est la que je sollicite votre aide afin d'ajouter un second mots
Voici le code c'est plus claire et merci
Sub Extraction()
range("A2:N2").Select
Selection.AutoFilter
Selection.AutoFilter
ActiveSheet.range("$A$2:$N$70").AutoFilter Field:=9, Criteria1:="=VERT", _
Operator:=xlOr, Criteria2:="=ROUGE"
Dim CONSColumn As Integer
Dim RowNumber As Integer
Dim NewWorkbookName As String, NewSheetName As String
tablo = ActiveSheet.range("A1:N" & ActiveSheet.range("N" & Rows.Count).End(xlUp).Row)
k = 0
ReDim tabloR(13, 0)
For I = 1 To UBound(tablo, 1)
If tablo(I, 9) = "VERT" Then
ReDim Preserve tabloR(13, k + 1)
For J = 1 To 13
tabloR(J - 1, k) = tablo(I, J)
Next J
k = k + 1
End
With Sheets.Add
ActiveSheet.Name = "Anomalies"
.range("a3").Resize(UBound(tabloR, 2), 14) = Application.Transpose(tabloR)
End With