J'ai regardé la solution de Frangy, et je dois dire que je suis admiratif car je suis encore un débutant et je suis complétement subjugué par les personnes maitrisant les formules obscures de Excel ^^.
Voici ma solution, certes basiques mais fonctionnelle
Sub Gniark()
Dim N As Integer
N = 0
For I = 6 To 25
If Cells(9, I).Value = 1 Then
N = N + 1
End If
Next I
If N > 1 Then
For I = 6 To 25
If Cells(9, I).Value <> 1 Then
Cells(9, I).Value = Cells(9, I).Value + 1
End If
Next I
End If
End Sub
A reproduire pour ta seconde ligne en remplaçant les Cells(9,I) par Cells(15,I).
En espérant avoir filé un coup de "papatte",
Bonne nuit!
Sq'