XL 2013 matrice de formation

' Rechercher la personne sélectionnée
Application.ScreenUpdating = False
With Sheets("Formation_" & ComboBox1.Value)
    ' Suppression des lignes superflues
    derlig = .Range("F65500").End(xlUp).Row
    For i = derlig To 4 Step -1
        If Range("B" & i).Value <> ComboBox1.Value Then
            Range("B" & i).EntireRow.Delete
        End If
    Next i
    ' Suppression des colonnes superflues
    dercol = 1 + Application.CountIf(Range("3:3"), "*")
    For i = dercol To 6 Step -1
        If Cells(4, i) <> 0 Then
            Columns(i).Delete Shift:=xlToLeft
        End If
    Next i
End With