Bonjour,
Comment faire pour modifier ce code pour dire afficher en résultat colonne S12:S et non pas en ligne 19??
Merci
Cordialement
Comment faire pour modifier ce code pour dire afficher en résultat colonne S12:S et non pas en ligne 19??
Merci
Code:
'...
ReDim Preserve ctl(1 To Uctl, 1 To 1)
ctl = Application.Transpose(ctl)
With Sheets(CONTROLE)
.Range(.Cells(19, 1), .Cells(19, Columns.Count).End(xlToLeft)).ClearContents
.Range(.Cells(19, 1), .Cells(19, Uctl)).Value = ctl
End WithCordialement