Sub Macro1()
Dim o1 As Object 'déclare la variable o1 (Onglet 1 - celui de la grosse matrice)
Dim o2 As Object 'déclare la variable o2 (Onglet 2 - celui de destination)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Rang 'déclare la variable dest (cellle de DESTination)
Set o1 = Sheets("Feuil1") 'définit l'onglet o1
Set o2 = Sheets("Feuil2") 'définit l'onglet o2
'boucle sur toutes les cellules éditées de la colonne A de l'onglet o1
For Each cel In o1.Range("A1:A" & o1.Cells(Application.Rows.Count, 1).End(xlUp).Row)
'condition : si la cellule contient "ça" et la cellule de la colonne B contient "ça"
If cel.Value = "ça" And cel.Offset(0, 1).Value = "ça" Then
'définit la cellule de destination (première cellule vide de la colonne A de l'onglet o2)
Set dest = o2.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)
cel.Offset(0, 44).Value.Copy dest 'copie la cellule de la colonne 45 et la colle dans dest (avec formats)
'dest.Value = cel.Offset(0, 44).Value (sans les formats)
End If 'fin de la condition
Next cel 'prochaine celluel de la boucle
End Sub