[COLOR="DarkSlateGray"][B]Sub toto()
Dim oLig As Range, oCel As Range
For Each oLig In Range("C9:AG200").Rows
If oLig.Row Mod 2 Then
For Each oCel In oLig.Cells
If oCel.MergeArea.Count > 1 Then
With oCel.MergeArea.Cells
oCel.UnMerge
.Value = oCel.Value
End With
End If
Next oCel
End If
Next oLig
End Sub[/B][/COLOR]