Aide pour creation de formules

Bonjour,

je viens vers vous afin de pouvoir essayer de me trouver une solution pour créer une formule si - ou

j'ai un tableau excel sous lequel j'ai plusieurs colonnes avec différents critères et je voudrais copier la ligne sur une autre feuille à partir du moment ou un de critères concernées apparaît dans une des colonnes

je vous joint mon fichier pour mieux comprendre la chose

Pour exemple : si en f2 sur ma feuille 1 j'ai le critère PRE je veux copier la ligne 2 en feuille 2

je voudrais me servir des critères suivant : PRE - PREVO - PREVO1 - PREVO2 - PREVO3 - PREI - PREL -

si l'un de ces critères apparaît dans une des colonnes il faut que je copie la ligne en feuille 2

dans l'attente de votre aide

cordialement

Bonjour,

à tester,

Sub test()
Dim sh1, sh2, critere
Dim t As Integer, y As Integer
Dim LastRw1 As Long, LastRw2 As Long, i As Long

Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
LastRw1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row
LastRw2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1
critere = Array("PRE", "PREVO", "PREVO1", "PREVO2", "PREVO3", "PREI", "PREL")

For i = 2 To LastRw1
  For y = LBound(critere) To UBound(critere)
    If Not IsError(Application.Match(critere(y), sh1.Rows(i), 0)) Then t = 1
  Next y

    If t <> 0 Then
      sh2.Range(Cells(LastRw2, 1).Address, Cells(LastRw2, 15).Address).Value = sh1.Range(Cells(i, 1).Address, Cells(i, 15).Address).Value
      LastRw2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1
      t = 0
    End If

Next i
End Sub

Bonjour sabv

Merci Je vais essayer et je reviens vers vous

Donc je dois obligatoirement creer une macro

Cdlt