Bonjour le forum, j'ai un petit soucis quand je copie les colonnes d'une feuil1 vers une feuil2, elles ne gardent pas leur largeur de la feuil1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim J As Integer, K As Integer
K = 5
For J = 5 To 255 Step 6
  If Cells(5, J) = CInt(ListBox2.List(I)) Then
    Range(Cells(5, J), Cells(500, J + 5)).Copy Sheets("Consultation").Cells(K, J)
    K = K + 5
  End If
Next J
Il y a t-il une commande prévue à cet effet.