Option Explicit
Sub Trie_Ajuste_sur_Couleur()
Dim X As Long
Application.ScreenUpdating = 0
Range("A2:N" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
For X = 2 To Range("A65536").End(xlUp).Row
If Range("A" & X).Interior.ColorIndex = 36 Then
Range("A" & X).RowHeight = 20
Else
Range("A" & X).RowHeight = 12.75
End If
Next
End Sub
Sub Trie_Ajuste_sur_Type()
Dim X As Long
Application.ScreenUpdating = 0
Range("A2:N" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
For X = 2 To Range("A65536").End(xlUp).Row
If Range("C" & X) = "Type 4" Then
Range("C" & X).RowHeight = 20
Else
Range("C" & X).RowHeight = 12.75
End If
Next
End Sub
Sub PaletteCouleur()
Dim Couleur As Long
Application.ScreenUpdating = 0
Feuil2.Range("A1:B57").EntireRow.Delete
Feuil2.Cells(1, 1).Value = "Couleur"
Feuil2.Cells(1, 2).Value = "Code"
For Couleur = 1 To 56
Feuil2.Cells(1 + Couleur, 1).Interior.ColorIndex = Couleur
Feuil2.Cells(1 + Couleur, 2).Value = Couleur
Next
End Sub