VBA EXCEL sur plusieurs cellules ?

Bonjour, voici mon code (il permet d'afficher plusieurs choix dans une cellule à partir d'une liste déroulante). Mais, je n'arrive pas à l'appliquer à toutes les cellules. J'y travaille depuis 3 heures !

Merci pour votre aide

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" And Target.Count = 1 Then
Application.EnableEvents = False
ValSaisie = Target
Application.Undo
p = InStr(Target, ValSaisie)
If p > 0 Then
Target = Left(Target, p - 1) & Mid(Target, p + Len(ValSaisie) + 1)
If Right(Target, 1) = ":" Then
Target = Left(Target, Len(Target) - 1)
End If
Else
If Target = "" Then
Target = ValSaisie
Else
Target = Target & ":" & ValSaisie
End If
End If
Application.EnableEvents = True
End If
End Sub