appliquer un code sur une colonne donnée et un nombre de lignes défini

[RESOLU]appliquer un code sur une colonne donnée et un nombre de lignes défini

bonjour, je suis en train de faire ma thèse et doit pour cela remplir un questionnaire téléphonique à +/- 100 personnes. Certaines questions ont plusieurs réponses possibles dans une liste. j'ai déja trouvé grace à vous un code permettant un choix multiple dans une liste déroulante :

If Target.Address = "$F$3" And Target.Count = 1 Then
p = InStr(Target.Offset(0, 1), Target.Value)
If p > 0 Then
Target.Offset(0, 1) = Left(Target.Offset(0, 1), p - 1) & _
Mid(Target.Offset(0, 1), p + Len(Target.Value) + 1)
If Right(Target.Offset(0, 1), 1) = "+" Then
Target.Offset(0, 1) = Left(Target.Offset(0, 1), Len(Target.Offset(0, 1)) - 1)
End If
Else
If Target.Offset(0, 1) = "" Then
Target.Offset(0, 1) = Target
Else
Target.Offset(0, 1) = Target.Offset(0, 1) & "+" & Target.Value
End If
End If
End If



Le probleme est que ça fonctionne pour une ligne (donc pour une personne)
je cherche un moyen d'appliquer ce code à une colonne
ex : If Target.Address = "$F$3 à 103" And Target.Count = 1......
Mais je ne sais pas quelle syntaxe utiliser ???
Merci de votre aide précieuse
Julien Bourel