Copier une valeur en fonction d'une cellule dont la valeur<0

Bonjour,

J'essaie en vain de créer une macro afin de copier et coller la valeur d'une cellule de la colonne A suivant si la valeur de la colonne K de la même ligne est négative et ceci en boucle jusqu'a la fin de la plage de cellule de l'onglet agenda de relance sans écraser les données déjà copier dans l'onglet "priorisation".

je vous met mon fichier en pièces jointes .

Merci pour votre aide et vos conseils..

Bonsoir,

essaye ce code :

Sub copie_valeur()
'+---------------------------------------+
'|       DECLARATION DES VARIABLES       |
'+---------------------------------------+
derligne_priorisation = Sheets("priorisation").Range("A" & Rows.Count).End(xlUp).Row
derligne_agenda = Sheets("agenda de relance").Range("A" & Rows.Count).End(xlUp).Row

'+----------------------------------------------------------+
'|       EFFACE LE TABLEAU DE LA FEUILLE PRIORISATION       |
'+----------------------------------------------------------+
If derligne_priorisation <> 6 Then
    Sheets("priorisation").Range("A7:E" & derligne_priorisation).ClearContents
    derligne_priorisation = 6
End If

'+-----------------------------------------------------------+
'|      TEST DE LA COLONNE K SI <0 DE LA FEUILLE AGENDA      |
'|      ET COPIE DE LA VALEUR EN COLONNE A SUR LA FEUILLE    |
'|                       PRIORISATION                        |
'+-----------------------------------------------------------+
With Sheets("agenda de relance")
    For i = 2 To derligne_agenda
        If .Range("K" & i) < 0 Then
            derligne_priorisation = derligne_priorisation + 1
            Sheets("priorisation").Range("A" & derligne_priorisation) = .Range("A" & i)
        End If
    Next i
End With
End Sub

Cordialement.

Merci bigdaddy154

C'est exactement ce que je cherchais a faire merci beaucoup