Salut Quentin,
dur, dur de s'y remettre!
Ça va aller : c'est un peu comme le vélo...
iRow = Range("B" & Rows.Count).End(xlUp).Row
'
If Not Intersect(Target, Range("C1:D1")) Is Nothing Then
iLig = 1
For x = 2 To iRow
If Cells(x, 2) < 3 Then
iLig = IIf(Target.Column = 3, iLig + 1, x)
Cells(iLig, Target.Column) = Cells(x, 2)
End If
Next
End If
Clique sur [B1, C1, D1]...
Bonne reprise!
A+