Sub SupprLigne()
'à partir de la feuille BDD, ne récupère QUE les lignes qui contiennent un des critères
'et les colle dans la feuille BDD2.. qui doit donc exister dans le fichier
Dim i,j,k As Long
Dim crit1, crit2, crit3 As String
Dim tablo() As Variant
Dim tablo2() As Variant
Application.ScreenUpdating = False
crit1 = "YTD ACT*"
crit2 = "Reel*"
crit3 = "B*"
With Sheets("BDD")
tablo = .Range("A1").CurrentRegion.Value
For i = LBound(tablo, 1) To UBound(tablo, 1)
If Not (tablo(i, 1) Like crit1 Or tablo(i, 1) Like crit2 Or tablo(i, 1) Like crit3) Then
For j = LBound(tablo, 2) To UBound(tablo, 2)
tablo(i, j) = ""
Next j
Else: nb = nb + 1
End If
Next i
ReDim tablo2(1 To nb, 1 To UBound(tablo, 2))
k = 1
For i = LBound(tablo, 1) To UBound(tablo, 1)
If tablo(i, 1) <> "" Then
For j = LBound(tablo, 2) To UBound(tablo, 2)
tablo2(k, j) = tablo(i, j)
Next j
k = k + 1
End If
Next i
Sheets("BDD2").Range("A1").Resize(UBound(tablo2, 1), UBound(tablo2, 2)) = tablo2
End With
Application.ScreenUpdating = True
End Sub