Sub Bouton1_Cliquer()
Dim DerLi, DerCol, n As Integer
DerLi = Range("Base!A3").End(xlDown).Row
DerCol = Range("Base!A2").End(xlToRight).Column
n = 5
For i = 7 To DerCol
For j = 2 To DerLi
If Cells(j, i) <> "na" And Cells(j, i) <> "" Then
Range("Base!A" & j & ":F" & j).Copy
Range("Cible!A" & n).PasteSpecial
Range("Cible!G" & n) = Cells(5, i)
If i = 13 Or i = 19 Then
Range(Cells(j, i), Cells(j, i + 1)).Copy
Range("Cible!H" & n).PasteSpecial
Else
Range("Cible!H" & n) = Cells(j, i)
Range("Cible!I" & n) = Cells(j, i)
End If
n = n + 1
End If
Next j
If i = 13 Or i = 19 Then
i = i + 1
End If
Next i
End Sub