Sub encoder_donnée()
'
' encoder_donnée Macro
'
Dim MaDerLigneTab As Variant
MaDerLigneTab = Range("D37").End(xlUp).Offset(1, 0).Address
MaDerLigneTab = Range(MaDerLigneTab).Row - 1
For Each var_Rge In Range("D7
" & MaDerLigneTab)
PROD = var_Rge.Value
LIGNEPROD = var_Rge.Row
QT = Range("F" & LIGNEPROD)
CONS = Range("C4")
SEM = Range("F4")
With Sheets(2)
MaLigne = Sheets(2).Range("C65536").End(xlUp).Offset(1, 0).Address
MaLigne = Sheets(2).Range(MaLigne).Row
Sheets(2).Range("A" & MaLigne) = CONS
Sheets(2).Range("B" & MaLigne) = SEM
Sheets(2).Range("C" & MaLigne) = PROD
Sheets(2).Range("D" & MaLigne) = QT
Sheets(2).Range("E" & MaLigne) = "OUT"
End With
Next var_Rge
Range("D7
37").ClearContents
Range("F7:F37").ClearContents
MsgBox "Consomations enregistrées"
End Sub