'Chargement de la liste de la combobox d'après range
ComboBox1.Column = Sheets("Données").Range("C1:AD1").Value
'Copie la colonne semaine en cours vers semaine destination sur !volumes, précision de la destination de la commande par "With Sheets("Volumes")"
With Sheets("Données")
.Range(.Cells(2, ComboBox1.ListIndex + 3), .Cells(13, ComboBox1.ListIndex + 3)).Value = .Range("C2:C13").Value
End With