Macro avec une variable

Bonjour.

J'ai créé une macro qui copie certaines cellules de la feuille1 vers un tableau synthétique en feuille 2. quand je clique sur un bouton.

Seulement, La feuille 1 n'a pas le même nombre de lignes si elle concerne une société ou un groupe.
Si c'est une société, je vais copier la cellule B8, mais si c'est un groupe je copierai la cellule B11.

la macro que j'ai faite fonctionne avec if then. Mais du coup elle est assez lourde.

Sheets("export ARC").Activate
If Range("P4").Value Like "*societe*" Then

Sheets("export ARC").Activate
Range("AM21").Copy
Sheets("Synthèse").Activate
Range("D6").PasteSpecial Paste:=xlPasteValues

Sheets("export ARC").Activate
Range("AU21").Copy
Sheets("Synthèse").Activate
Range("B8").PasteSpecial Paste:=xlPasteValues
End If

Sheets("export ARC").Activate

If Range("P4").Value Like "*groupe*" Then
Sheets("export ARC").Activate
Range("AM17").Copy
Sheets("Synthèse").Activate
Range("D6").PasteSpecial Paste:=xlPasteValues

Sheets("export ARC").Activate
Range("AU17").Copy
Sheets("Synthèse").Activate
Range("B8").PasteSpecial Paste:=xlPasteValues
End If

Pouvez-vous m'expliquer comment je peux intégrer une variable dans mon code qui, en fonction du critère "groupe" ou "société", change de valeur ce qui donnerai

Sheets("export ARC").Activate
Range("AM17+i").Copy
Sheets("Synthèse").Activate
Range("D6").PasteSpecial Paste:=xlPasteValues

Merci beaucoup, encore une fois, pour votre aide précieuse.