Sub Copievers1()
Dim Cel As Range
Set Cel = Sheets("Feuil1").Range("H" & Rows.Count).End(xlUp).Offset(1, 0)
If IsEmpty(Cel.Offset(, -1).Value) Then
MsgBox "Valeur non copiée parce que " & Cel.Offset(, -1).Address & " est vide", vbCritical
Else
Cel.Value = Sheets("Feuil2").Range("G16").Value
MsgBox "Valeur copiée en " & Cel.Address, vbInformation
End If
End Sub