Obliger une saisie 2 colonnes

Bonsoir
AninymousA m'a donné cette procédure.

Je souhaite l'adapter sur des colonnes complètes
J'ai une col Ref_organisation dans laquelle je saisi les jours "4,5 jours"
ou "5 jours" et une autre Ref_fermeture dans laquelle l'utilisateur doit
saisir, si il y a "4,5 jours" dans la cellule contiguë
Merci encore
Flo riant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("C1") = "5 jours" And Not Intersect(Target, Range("A1")) Is Nothing
Then
MsgBox "pas possible de saisir"
Range("A2").Activate
ElseIf Range("C1") = "4,5 jours" Then
If IsEmpty(Range("A1")) Then
MsgBox "obligé de saisir en A1"
Application.EnableEvents = False
Range("A1").Activate
Application.EnableEvents = True
End If
End If

End Sub