Private Sub ComboBox1_Change()
Dim I As Integer
For I = 6 To 1000
If Cells(I, 7) = ComboBox1.Value Then
' Transfère données dans tableaux et mise en forme du texte
Sheets("test").Cells(I, 5) = ComboBox1.Value
'Sheets("test").Range(Cells(I, 5), Cells(I, 6)).Merge
Sheets("test").Cells(I, 5).HorizontalAlignment = xlLeft
End If
Next