Option Explicit
Private Sub CommandButton1_Click()
Dim j, Numeroligne, k As Integer
Application.ScreenUpdating = False
With Sheets("Vos Compétences SF SI")
Numeroligne = .Range("E62").End(xlUp).Row
For j = 4 To Numeroligne
.Range("E" & j).Copy Sheets("Resultat").Cells(4, j - 3)
.Range("F" & j).Copy Sheets("Resultat").Cells(5, j - 3)
Next j
End With
For k = 1 To Numeroligne - 3
Select Case Cells(5, k).Value
Case [COLOR="Red"]"[/COLOR]N/A[COLOR="red"]"[/COLOR]
Cells(6, k).Value = 1
Case [COLOR="red"]"[/COLOR]Notion[COLOR="red"]"[/COLOR]
Cells(6, k).Value = 2
Case [COLOR="red"]"[/COLOR]Appliqué[COLOR="red"]"[/COLOR]
Cells(6, k).Value = 3
Case [COLOR="red"]"[/COLOR]Maitrise[COLOR="red"]"[/COLOR]
Cells(6, k).Value = 4
Case [COLOR="red"]"[/COLOR]Expert[COLOR="red"]"[/COLOR]
Cells(6, k).Value = 5
End Select
Next k
With Cells
.HorizontalAlignment = xlCenter
.WrapText = True
.MergeCells = False
.Rows.AutoFit
.Columns.AutoFit
End With
End Sub