Sub Macro1()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim NL As Long 'déclare la variable NL (Nombre de Lignes)
Dim I As Long 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
Dim K As Long 'déclare la variable K (Imcrément)
Dim TL() As Variant 'déclare la variable TL (Tabeau des lignes)
Set OS = Sheets("BDR") 'définit l'onglet source OS
Set OD = Sheets("IND") 'définit l'onglet destination OD
TV = OS.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
NL = UBound(TV) 'définit le nombre de lignes NL du tableau des valeurs TV
K = 1 'initialise la variable K
For I = 2 To NL 'boucle 1 : sur toutes les lignes du tableau des valeurs TV (en partant de la seconde)
If InStr(1, TV(I, 27), "Réalisé", vbTextCompare) <> 0 Then 'condition si la valeur ligne I, colonne 27 (=> AA) du tableau des valeurs TV contient le mot "Réalisé"
ReDim Preserve TL(1 To 30, 1 To K) 'redimensionne le tableau des lignes TL (30 lignes, K colonnes)
For J = 1 To 30 'boucle 2: sur les 30 colonnes du tableau de valeurs TV (=> A à AD)
TL(J, K) = TV(I, J) 'récupère dans la ligne J colonne K de TL la valeur ligne I colonne J de TV (= Transposition)
Next J 'prochaine colonne de la boucle 2
K = K + 1 'incrémente K (rajoute une colonne au tableau de lignes TL
End If 'fin de la condition
Next I 'prochaine ligne de la boucle 1
'si K est supérieur à 1 (donc si il existe au moins une ligne contenant "Réalisé"), renvoie dans A2 (redimensionnée) de l'onglet OD le tableau TL transposé
If K > 1 Then OD.Range("A2").Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL)
End Sub