HELP VBA EXCEL

Bonjour,

J'ai réussi à créer une macro qui fonctionne pour mon tableau test , mais je n'arrive pas à la modifier pour la faire fonctionner sur mon tableau final.

Selon le choix d'une liste déroulante, les cellules se verrouillent et se colorient, je souhaiterai que sur le tableau final, les cellules des colonnes R à Z se verrouillent et se colorient lorsque je choisis Flux 4 et que la cellule colonne "AD" se verrouille et se colorie lorsque je choisis Flux 1.

Je vous mets ci-dessous la macro qui focntionne pour mon tableau test :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Select Case Target.Value
Case Is = "Flux 4"
ActiveSheet.Unprotect
Cells.Locked = False
Range(Target.Offset(, 3), Target.Offset(, 4)).Interior.ColorIndex = 16
Range(Target.Offset(, 3), Target.Offset(, 4)).Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Case Else
ActiveSheet.Unprotect
Cells.Locked = True
Range(Target.Offset(, 3), Target.Offset(, 4)).Interior.ColorIndex = xlColorIndexNone
End Select
End If
End Sub

Fichier TEST https://www.cjoint.com/c/FLbrbkX2hGX
Fichier final https://www.cjoint.com/c/FLbri1qOyjX

Merci d'avance!!