Bonjour à tous, j'aurai une question qui parait simple mais tout ce que j'ai essayé ne marche pas...
comment simplifier ces lignes en une seule
dim ligPlein2 as long
ligPlein2 = Sheets("Sorties").Range("B" & Rows.Count).End(xlUp).Row + 2
Cells(ligPlein2, "G").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "H").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "I").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "J").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "K").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "L").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "M").Interior.Color = RGB(160, 192, 128)
merci beaucoup