Sub transfertdedonnées()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim bacs As String 'déclare la variable bacs (numéros des BACS)
For Each cel In Range("A9:A16") 'boucle sur toutes les cellules cel de la plage A9:A16
If cel.Value <> "" Then 'condition : si la cellule n'est pas vide
'définit la variable bacs
bacs = bacs & cel.Value & " " ' ancienne valeur + nouvelle + espace
'attibue à la cellule sur la même ligne que cel, colonne 5, la valeur de A7
Cells(cel.Row, 5).Value = Range("A7").Value
End If 'fin de la condition
Next cel 'prochaine cellule cel de la boucle
Range("E7").Value = bacs 'place en E7 la variable bacs
End Sub