Voici une base à compléter avec les valeurs qui t'intéressent
Sub Macro6()
For Each nom In Array("Dupont", "Durand", "Duschmol")
For Each mois In Array("janvier", "février", "mars", "avril")
For Each pays In Array("France", "Allemagne", "Ouzbekistan")
For Each activite In Array("achats", "vente", "leasing")
For annee = 2018 To 2022
ActiveCell.Value = nom & " " & mois & " " & pays & " " & activite & " " & annee
ActiveCell.Offset(1, 0).Activate
Next
Next
Next
Next
Next
End Sub