Choix unique :
Si je te demande ton département de naissance, il n'y a qu'une réponse possible parmi une liste de département.
Si je te demande tes 3 départements préférés, la réponse sera traitée différemment (car si tu mets les 3 bout à bout dans une même cellule, c'est inexploitable).
Et on a pas commencé à parler de stats encore...
En attendant que je regarde le contenu de ton fichier, voilà une macro pour dissocier automatiquement des réponses mise bout à bout :
Sub SéparerRéponses()
Dim LigMax As Integer, Lig As Integer, ColD As Integer, ColF As Integer, Col As Integer, ColRep As Range, Separer() As String, i As Byte 'Déclaration des variables
On Error Resume Next
Set ColRep = Application.InputBox("Selectionner la plage de réponses à dissocier (1 colonne à la fois - en-tête comprise)", Type:=8) 'Sélection de la plage à transformer
Application.ScreenUpdating = False 'Désactive l'affichage le temps d'exécuter la macro
Application.Calculation = xlCalculationManual 'désactive le calcul auto des formules Excel
With Sheets("Resultat")
.Cells.ClearContents 'Suppression des anciennes données
ColD = 1: ColF = ColD 'Indices de la premiere et de la dernière colonne contenant les réponses traitées
For Each Cell In ColRep 'Parcourir les cellules
If Not IsEmpty(Cell) Then 'Si la cellule n'est pas vide
Separer = Split(Cell, ", ") 'Sépare les réponses en fonction de la virgule
For i = LBound(Separer) To UBound(Separer)
For Col = ColD To ColF
If IsEmpty(.Cells(1, Col)) Then .Cells(1, Col) = Separer(i) 'Ajout de la première modalité de réponse
If Separer(i) = .Cells(1, Col) Then 'Recherche de correspondance avec une modalité existante
.Cells(Cell.Row, Col) = Separer(i): Exit For
End If
If Col = ColF Then 'Ajout d'une colonne si nouvelle modalité
ColF = ColF + 1
.Cells(1, Col + 1) = Separer(i)
.Cells(Cell.Row, Col + 1) = Separer(i)
End If
Next Col
Next i
End If
Next
End With
Application.Calculation = xlCalculationAutomatic
End Sub
PS: il faut au préalable crée un onglet vierge appelé "Resultat".