Bonsoir,
1- pour que Range("A" & Rows.Count) représente la dernière cellule de la colonne A de la feuille "MQ", il faut la rattacher à cette feuille via un point, soit . Range("A" & Rows.Count) sinon cette cellule est rattachée à la feuille active.
2- erreur de logique pour la variable DerlgMQ. Il ne s'agit pas de la dernière ligne utilisée mais de la première ligne vide
With Sheets("MQ")
DerlgMQ = .Range("A" & Rows.Count).End(xlUp).Row
End With
With Sheets("MQ")
PremlgMQ = .Range("A" & Rows.Count).End(xlUp).Row + 1
End With
NB: Code direct pour trouver la première ligne vide (sous réserve que la première ligne à remplir commence en ligne 2)
With Sheets("MQ")
PremlgMQ = .Columns("A").Find("").Row
End With