Re : selection.interior.colorindex et adress
Bonjour,
Sub Test_2()
'supprime couleur cellule rouge a modif en fusion cellule couleur bleu/vert
Dim c As Range
Derligne = Range("A" & Application.Rows.Count).End(xlUp).Row
MsgBox Derligne
Target = Range(Cells(5, 1), Cells(Derligne, 1))
For Each cell In Target
If cell.Interior.ColorIndex = RGB(204, 255, 255) Then
MsgBox ("tatrouvé")
c=cell.row
Range(Cells(c, 2), Cells(c, 9)).Select
With Selection
.Borders.Value = 1
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With
Selection.Merge
End If
MsgBox Derligne
Next cell
End Sub
Je pense que tes problèmes devraient être résolus