Private Sub NOES()
Dim nbLigne As Integer, compteur As Integer, nbLigneNecessaire As Integer, nbLigneEnTrop As Integer, i As Integer
Dim str As String
nbLigne = Range("F20").Value
i = 25
While Range("C" & i).Value <> ""
compteur = 0
str = Range("C" & i).Value
While Range("C" & i).Value = str
compteur = compteur + 1
i = i + 1
Wend
If compteur < nbLigne Then
nbLigneNecessaire = nbLigne - compteur
For j = 1 To nbLigneNecessaire
Range("C" & i).EntireRow.Insert
Range("C" & i).Value = str
Next
i = i + nbLigneNecessaire
ElseIf compteur > nbLigne Then
nbLigneEnTrop = compteur - nbLigne
For j = 1 To nbLigneEnTrop
Range("C" & i - compteur).EntireRow.Delete
Next
i = i - nbLigneEnTrop
End If
Wend
End Sub