Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 2 And Target.Row > 3 Then
Ligne = Target.Row
Range("C" & Ligne - 1 & ":GG" & Ligne - 1).AutoFill _
Destination:=Range("C" & Ligne - 1 & ":GG" & Ligne), Type:=xlFillDefault
Target.Offset(0, -1).Value = Target.Offset(-1, -1).Value + 1
With Sheets("Tableau 2")
.Range("C" & Ligne - 1 & ":AG" & Ligne - 1).AutoFill _
Destination:=.Range("C" & Ligne - 1 & ":AG" & Ligne), Type:=xlFillDefault
.Range("A" & Ligne) = Target.Offset(0, -1).Value
.Range("B" & Ligne) = Target.Value
End With
End If
End Sub