Private Sub Worksheet_Change(ByVal Cible As Range)
'Cas précis > SI K11="Accepté" alors copie des cellules C1 et F1 respectivement en
'"C"&"Derligne colonne C" et "F"&"Derligne colonne F" dans l'onglet Table partenaire
If Cible.Column = Columns("K").Column And Cible.Row > 10 Then
With Worksheets("Table partenaire")
If Cible(1).Value = "Accepté" Then
[C1].Copy Destination:=.Cells(.Cells(.Rows.Count, .Columns("C").Column).End(xlUp).Row + 1, .Columns("C").Column)
[F1].Copy Destination:=.Cells(.Cells(.Rows.Count, .Columns("F").Column).End(xlUp).Row + 1, .Columns("F").Column)
End If
End With
End If
End Sub