je cherche a copier une ligne sur une feuille selon le critere a l'aide d'un bouton. Exemple la cellule "B2" = Eric et "C2" = Carrefour, copier la ligne sur la feuille Eric et sur la feuille Carrefour.
Sub copie()
If Range("B2").Value = "Eric" And Range("C2").Value = "Carrefour" Then
Range("B2").EntireRow.Copy Sheets("Eric").Rows(2)
Range("B2").EntireRow.Copy Sheets("Carrefour").Rows(2)
End If
End Sub