Sub worksheet_Change(ByVal Target As Range)
'
'trouve fin tableau
fintab = Sheets("Feuil1").Range("A" & "65535").End(xlUp).Row + 1
fintab2 = fintab - 1
Adresse = "$B" & "$" & fintab2
If Target.Address = Adresse And Range("B" & fintab2).Value = "Oui" Then
Rows(fintab & ":" & fintab).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
End Sub