copier ligne dans feuille suivant critère

[nwemba]

bonjour

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.

slts

 

[skoobi]

Re : copier ligne dans feuille suivant critère

Bonjour,

avec ce que j'ai compris:

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

A mettre dans la feuille 1?

 

[nwemba]

Re : copier ligne dans feuille suivant critère

merci skooby