Problème dans un code pour remplir des valeurs en fonction de la valeur

Bonjour au forum,

Je voudrais simplifier ce code afin de remplir à partir de certaines valeurs contenues dans des cellules un texte.

Et également utiliser la fonction offset (mon essai texte en gras) à partir de la cellule de référence pour récupérer les autres valeurs (soit derlig ou valeurref).

Par avance merci pour votre aide.

Sub remplissage_texte()

' remplissage_texte Macro

Dim derlig As Long 'déclaration variable dernière ligne
Dim valeurref As Object

derlig = ThisWorkbook.Worksheets("Synthèse").Range("F" & Rows.Count).End(xlUp).Value

Sheets("feuil8").SelectRange("B2") = "Bonjour," & vbCrLf & vbCrLf & "Vous trouverez ci-dessous, la synthèse de la semaine dernière en prise de commande." & vbCrLf & vbCrLf & 

"Les points à noter sont pour cette semaine :" & vbCrLf & "Sur les ventes en xxxxx :" & vbCrLf &

"- Le nombre de projets (kjfkjfkjfk):" & " " & ThisWorkbook.Worksheets("Synthèse").Range("F" & Rows.Count).End(xlUp).Value & " vs" & " " & Range.derlig.Offset(0, -1).Value & " N-1 pour " & "" & ThisWorkbook.Worksheets("Synthèse").Range("J" & Rows.Count).End(xlUp).Value & " vs " & ThisWorkbook.Worksheets("Synthèse").Range("I" & Rows.Count).End(xlUp).Value & " N-1 " & "(" & ThisWorkbook.Worksheets("Synthèse").Range("M" & Rows.Count).End(xlUp).Value & " cdes pour" & ThisWorkbook.Worksheets("Synthèse").Range("J" & Rows.Count).End(xlUp).Value

& " semaine dernière)" & vbCrLf & 

"- Le nombre moyen de pièces est à " & ThisWorkbook.Worksheets("Synthèse").Range("H1").Value & " "