Sub MaMacro()
For i = 16 To Cells(65536, 2).End(xlUp).Row
If Cells(i, 2) Like "HA*" Then
With Sheets("Feuil2")
If .Range("B16") = "" Then x = 16 Else: x = .Range("B65000").End(xlUp).Row + 1
Cells(i, 2).EntireRow.Copy .Range("A" & x)
End With
ElseIf Cells(i, 2) Like "BQ*" Then
With Sheets("Feuil4")
If .Range("B16") = "" Then x = 16 Else: x = .Range("B65000").End(xlUp).Row + 1
Cells(i, 2).EntireRow.Copy .Range("A" & x)
End With
End If
Next
End Sub