Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:B" & Range("B65535").End(xlUp).Row)) Is Nothing Then
' je ne comprends pas intersect ?
' je ne comprends pas comment on utilise Target sans l'avoir défini avant ?
For Each cellule In Sheets(3).[MesParcelles]
' je ne trouve pas trace d'un objet [MesParcelles] ou feuille [MesParcelles]?
If cellule = Target Then
ActiveSheet.Unprotect
Target.Offset(0, 1) = cellule.Offset(0, 1)
Target.Offset(0, 3) = cellule.Offset(0, 2)
ActiveSheet.Protect
Exit For
End If
Next cellule
End If
End Sub