'classe artiste pour les fichiers reporting et artistes

    Type Artistes
        group_name As String
        is_bill As Boolean
        amount_htva As Single
        bill_date As Date
    End Type

Sub Automatisation()

         
 'déclaration des deux variables pour les deux fichiers
 
 Dim wip() As Artistes
 Dim reporting() As Artistes
 Dim client As Artistes
 Dim nb_cases  As Integer
 Dim cpt As Integer
 cpt = 0
 
 

 
 
 'déclaration de la taille des tableaux, soit le nombre de facture a effectué
 
 nb_cases = Range("A2").End(xlDown).Row
 
 ReDim wips(nb_cases)
 ReDim reporting(nb_cases)
 
 For i = 1 To Range("A2").End(xlDown).Row
    If Range("J" & i) = "OUI" Then
        Set client = New Artistes
        
        'client.group_name = Range("Y" & i)'
        'client.is_bill = Range("J" & i)'
        'client.amount_htva = Range("AK" & i)'
        'client.bill_date = Range("AJ" & i)'
        client.init(Range("Y" & i),Range("J" & i),Range("AK" & i),Range("AJ" & i))
        cpt = cpt + 1
    End If
Next


'transfert des données d'un fichier à l'autre
    
    
    
    
    
'condition de remplissage dans reporting
    
    
    
    
End Sub