For i = 2 To derligne
If compteur = 8 Then compteur = 2
controle = .Cells(i, 8)
If controle > 10 And colonnevoyelle = 4 Then colonnevoyelle = colonnevoyelle + 2
If controle > 10 And colonnevoyelle = 5 Then colonnevoyelle = colonnevoyelle + 2
If InStr(1, .Cells(i, colonne), '$') > 0 Then
conjugue = .Cells(compteur, colonnevoyelle) & ' ' & Replace(.Cells(i, colonne), '$', verbe)
Else