Copier valeurs sous conditions

Bonjour,

J'ai un petit problème avec une macro pour copier coller certaines cellules sous conditions.

J'aimerais copier les données contenues dans l'onglet "Listes des sites" sur la feuille "Attest_BDD"

Et suivant si les lignes sont remplis, j'aimerais associer à ces données les données représentées en jaune dans l'onglet "Launcher".

Si quelu'un à une piste ca sera avec plaisir.

Merci d'avance,

Sad

Bonjour,

Petit up après de nombreuses recherches je pense avoir trouvé une macro qui s'approche de mon problème mais j’avoue que j'aimerais bien avoir un peu d'explications par rapport à mon cas.

Sub donneeAvecExcel()
'Déclaration des variables
Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlSh As Excel.Worksheet
Dim iR As Integer
Dim iC As Integer
Dim i As Integer, j As Integer

'Affectation des données aux variables
Set xlApp = New Excel.Application
Set xlWb = xlApp.Workbooks.Open("Z:\Fichier 2.xls")
Set xlSh = xlWb.Worksheets(Attest_BDD)
'Récupération du nombre de lignes et de colonnes
iR = xlSh.UsedRange.Rows.Count
iC = xlSh.UsedRange.Columns.Count
'Boucle pour adresser les cellules contenant des données
'en excluant la première ligne qui contient les titres
For i = 2 To iR
    For j = 1 To iC
        Debug.Print xlSh.Cells(i, j)
    Next j
Next i

xlWb.Close
xlApp.Quit
Set xlSh = Nothing
Set xlWb = Nothing
Set xlApp = Nothing

End Sub

Merci d'avance

Cdlt,

Sad