Exécuter même si collage multiple

If Not Application.Intersect(Target, Range("V6:V16")) Is Nothing Then
Dim MaCellule As Range

    ActiveSheet.Unprotect 'Déprotège les cellules
    Range("V6:W15").Select
    Selection.Locked = False
    Selection.FormulaHidden = False



For Each MaCellule In Range("B6:B27,G6:G30,L6:L37,Q6:Q39")
If MaCellule.Value = Target.Value Then

Application.Calculation = xlAutomatic

Target.Offset(0, 1).Value = MaCellule.Offset(0, 3).Value
ActiveSheet.Unprotect
MaCellule.Offset(0, 0).Font.Underline = xlUnderlineStyleSingle
End If
Next MaCellule

End If