Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
Rep = MsgBox("Vous allez effacer les données...", vbYesNo, "Confirmation d'effacement")
If Rep = vbNo Then Exit Sub
Range("B5:AF100").ClearContents
End If
If Intersect(Target, [B5:AF100]) Is Nothing Or Target.Count > 1 Then Exit Sub
Feuil2.Range("B" & Feuil2.[B10000].End(3).Row + 1) = Cells(4, Target.Column)
Feuil2.Range("A" & Feuil2.[B10000].End(3).Row) = Cells(Target.Row, 1)
Feuil2.Range("C" & Feuil2.[B10000].End(3).Row) = Target.Value
End Sub