Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Variant, ncol%
With Sheets("Bilan")
lig = Application.Match([B1], .[F:F], 0)
If IsError(lig) Then Exit Sub
If [C1] = "Autres" Then lig = lig + 1
ncol = Cells(1, Columns.Count).End(xlToLeft).Column - 2
.Cells(lig, "G").Resize(, ncol) = [C1].Resize(, ncol).Value
End With
End Sub