Dim n°C As Long
For n°C = 98 To 98 + 90
If Cells(29, n°C) = 1 Then
Call msp7Xdessouscible
Cells(29, n°C).ClearContents
End If
If Cells(39, n°C) = 1 Then
Call msp7Xdessuscible
Cells(39, n°C).ClearContents
End If
If Cells(49, n°C) = 1 Then
Call msp7Xdescendant
Cells(49, n°C).ClearContents
End If
If Cells(59, n°C) = 1 Then
Call msp7Xmontant
Cells(59, n°C).ClearContents
End If
Next n°C