Option Explicit
Dim derln&
Private Sub Worksheet_Change(ByVal Target As Range)
derln = Range("C" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("C6:E" & derln & ", H6:H" & derln)) Is Nothing Then
If Range("F" & Target.Row) <= Range("I" & Target.Row) Then
Sheets("bon de commande").Range("C11") = Range("C" & Target.Row)
Sheets("bon de commande").Range("D11") = Range("D" & Target.Row)
Sheets("bon de commande").Activate
End If
End If
End Sub