Bonjour, je souhaiterais bien comprendre le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub question1()
  Dim annee As Integer
  Range("A6").Select
  Do
    annee = Year(Selection.Value)
    If Year(Selection.Offset(1, 0).Value) <> annee Then
      Selection.Offset(1, 0).EntireRow.Insert
      Selection.Offset(2, 0).Select
    Else
      Selection.Offset(1, 0).Select
    End If
  Loop While Selection.Value <> ""
End Sub
Pourriez-vous le commenter ?

Notez que voici le problème dont le code ci-dessus est censé être la solution :

Trier les données dans l'ordre croissant des dates, puis écrire un programme qui permet de d'insérer une ligne vide entre les différentes années.

Je ne vois pas en quoi ça trie quoi que ce soit.