Option Explicit
Sub CopieDonnees()
Dim MotCles As Variant
Dim C As Range
Dim F As Worksheet
Dim C_Address As String
Dim Ligne As Long
' mots clés pour copier
MotCles = Array("x", "X", "1")
' recherche des cellules non vides dans la colonne A de la feuille "RUBRIQUES TYPE"
Set C = Worksheets("RUBRIQUES TYPE").Columns(1).Find("*", LookIn:=xlValues, lookat:=xlWhole)
Do While Not C Is Nothing
If C_Address = "" Then C_Address = C.Address
' Traitement si C est dans MotCles
If UBound(Filter(MotCles, C, True, vbTextCompare)) >= 0 Then
'nom de la feuille où sera effectuée la copie
Set F = Worksheets("Débours")
'ligne où sera effectué le collage
Ligne = F.Range("A" & F.Rows.Count).End(xlUp).Row + 1
'On effectue le copier / coller
C.EntireRow.Copy F.Range("A" & Ligne)
'On supprime la ligne dans la sheet1
'C.EntireRow.Delete
End If
Set C = Worksheets("RUBRIQUES TYPE").Columns(1).FindNext(C)
If C.Address = C_Address Then Set C = Nothing
Loop
End Sub