Copier une colonne en fonction des données d'une autre colonne

bonjours à tous,

pour éviter de le faire manuellement , je voudrais en vba la collone D pour les cellules qui sont = à 1 en colonne M et les coller valeur dans la feuille "favoris" en A2

ci joint le fivier éppuré.

merci de votre aide par avance.

philippe

Bonjour

Solution sans doute pas la meilleure mais qui semble fonctionner :

Sub Copie_Valeurs()
'********************************
'********************************
Dim DernLigne As String
Application.ScreenUpdating = False

DernLigne = Sheets("classement_équipes").Range("M" & Rows.Count).End(xlUp).Row
    With Worksheets("classement_équipes")
        For i = 4 To DernLigne
            If .Range("M" & i) = 1 Then
                Worksheets("Favoris").Range("A" & i - 2) = Worksheets("classement_équipes").Range("D" & i)
            Else
                Worksheets("Favoris").Range("A" & i - 2) = ""
            End If
        Next i
    End With

Application.ScreenUpdating = True
End Sub

Bonjour

Bonjour à tous

Un essai à tester. Te convient-il ?

Bye !

bonjour à vous,

merci pour votre réponse, les 2 fonctionnent j'ai réussi à l'adapter à mon fichier.

cordialement

Philippe